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COMPUTER  PROGRAMS  FOR  AIR/GROUND  PROPAGATION 
AND  INTERFERENCE  ANALYSIS  (0.1  to  20  GHz) 


G.  D.  Gierhart  and  M.E.  Johnson 


This  report  describes  three  computer  programs  for  use 
in  predicting  the  service  coverage  associated  with  air/ 
ground  radio  systems  operating  in  the  frequency  band  from 
0.1  to  20  GHz.  Power  density,  station  separation,  and  ser¬ 
vice  volume  programs  are  used  to  obtain  computer-generated 
microfilm  plots.  These  are:  (1)  power  density  available 
at  a  particular  altitude  versus  distance  from  a  ground- 
based  transmitting  facility;  (2)  the  desired-to-undesi red 
signal  ratio,  D/U,  available  at  an  isotropic  receiving 
antenna  versus  the  distance  separating  desired  and  unde¬ 
sired  facilities;  and  (3)  constant  D/U  contours  in  the 
altitude  versus  distance  space  between  the  desired  and 
undesired  facilities.  A  detailed  discussion  of  the  propa¬ 
gation  model  involved  and  program  listings  are  included 
in  the  appendices. 

KEY  WORDS:  air/ground,  computer  program,  DME,  frequency 
sharing,  ILS,  interference,  navigation  aids, 
propagation  model,  TACAN,  transmission  loss, 
VOR. 


1.  INTRODUCTION 

Assignments  for  aeronautical  radio  in  the  radio  frequency  spectrum 
must  provide  reliable  services  for  an  increasing  air  traffic  density  [25]* 
Potential  interference  between  facilities  operating  on  the  same  or  on 
adjacent  channels  must  be  considered  in  expanding  present  services  to 
meet  future  demands.  Service  quality  depends  on  many  factors  including 
the  desired-to-undesi red  signal  ratio  at  the  receiver.  This  ratio 
varies  with  receiver  location  and  time  even  when  other  parameters,  such 
as  antenna  gain  and  radiated  powers,  are  fixed. 


1,(References  are  listed  alphabetically  by  author  at  the  end  of 
the  report  so  that  reference  numbers  do  not  appear  sequentially 
In  the  text. 


Tne  computer  programs  described  in  this  report  were  developed  by  the 
Institute  for  Telecommunication  Sciences  (ITS)  of  the  Office  of  Telecommuni 
cations  (OT)  under  the  sponsorship  of  the  Federal  Aviation  Administration 
(FAA).  Although  these  programs  were  intended  for  use  in  predicting  the 
service  coverage  associated  with  ground-based  VHF/UHF/SHF  air  navigation 
aids,  they  can  be  used  for  other  services. 

The  three  computer  programs  discussed  are  for  use  in  predicting  the 
service  coverage  associated  with  air/ground  radio  systems  in  the  frequency 
band  from  0.1  to  20  GHz.  Power  density,  station  separation,  and  service 
volume  programs  are  used  to  obtain  computer-gen  .rated  microfilm  plots. 

These  are,  respectively,  (1)  power  density  available  at  a  particular  alti¬ 
tude  versus  distance  from  a  ground-based  transmitting  facility;  (2)  the 
desired-to-undesired  signal  ratio,  D/U,  available  at  an  isotropic  receiving 
antenna  versus  the  distance  separating  desired  and  undesired  facilities; 
and  (3)  constant  D/U  contours  in  the  altitude  versus  distance  space  between 
the  desired  and  undesired  facilities. 

This  type  of  information  is  very  similar  to  that  previously  developed 
by  ITS  for  the  FAA  [17,19].  However,  many  more  operations  are  automated 
via  these  computer  programs.  The  new  service  volume  program  performs  opera 
ations  that  previously  involved  (a)  the  use  of  separate  programs  for  each 
propagation  region  (line-of-sight,  diffraction,  and  scatter),  (b)  manual 
blending  between  regions  to  obtain  continuous  transmission  loss  curves, 

(c)  using  this  transmission  loss  data  with  another  program  to  obtain 

D/U  versus  distance  curves  for  various  aircraft  altitudes  and  station  separ 

ations,  and  (d)  using  these  curves  to  construct  service  volume  displays. 

In  addition,  the  propagation  model  incorporated  into  the  programs  is  more 
general  than  those  used  previously;  e.g.,  smooth  earth  conditions  were 
emphasized  in  previous  models,  whereas  the  current  model  may  also  be  used 
for  irregular  terrain. 

The  use  of  such  information  in  spectrum  engineering  has  been  dis¬ 
cussed  by  Hawthorne  and  Daugherty  [23]  and  Frisbie  et  al .  [16];  infor¬ 
mation  on  spectrum  engineering  for  air  navigation  aids  is  available  [11, 

12,  14,  15,  24,  28] . 


2 


The  brief  description  of  the  propagation  model  given  in  section  2  is 
supplemented  by  a  detailed  technical  discussion  in  appendix  A.  Section  3 
includes  a  description  of  the  computer  programs  in  terms  of  input  param¬ 
eters  and  output  generated.  A  summary  and  recommendations  are  given  in 
sections  4  and  5,  respectively.  Program  listings  are  given  in  appendix  B, 
and  a  list  of  abbreviations,  acronyms,  and  symbols  is  provided  in  appendix 
C  along  with  an  index  to  equations  in  appendix  D. 

2.  PROPAGATION  MODEL 

The  propagation  model  used  in  the  programs  is  applicable  to  ground/ 
air  telecommunication  links  operating  at  radio  frequencies  from  about 
0.1  to  20  GHz  at  aircraft  altitudes  less  than  300,000  ft.  Ground  station 
antenna  heights  must  be  (1)  greater  than  1.5  ft,  (2)  less  than  9,000  ft, 
and  (3)  at  an  altitude  below  the  aircraft.  In  addition,  the  elevation  of 
the  radio  horizon  must  be  less  than  the  aircraft  altitude.  Ranges  for 
other  parameters  associated  with  the  model  will  be  given  later  (table  1). 

At  these  frequencies,  propagation  of  radio  energy  is  affected  by  the 
lower,  non-ionized  atmosphere  (troposphere),  specifically  by  variations  in 
the  refractive  index  of  the  atmosphere.  Atmospheric  absorption  and  atten¬ 
uation  or  scattering  due  to  rain  become  important  at  SHF  [18,  sec.  A. 3; 

30,  ch.  7;  40,  cii.  3;  41].  The  terrain,  along  and  in  the  vicinity  of  the 
great  circle  path  between  transmitter  and  receiver,  also  plays  an  important 
part.  In  this  frequency  range,  time  and  space  variations  of  received  signal 
and  interference  ratios  are  best  described  statistically. 

Conceptually,  the  model  is  very  similar  to  the  Longley-Rice  [32] 
propagation  model  for  propagation  over  irregular  terrain,  particularly  in 
that  attenuation  versus  distance  curves  calculated  for  the  (a)  1 ine-of-si ght 
(b)  diffraction,  and  (c)  scatter  regions  are  blended  together  to  obtain 
values  in  transitions  regions.  In  addition,  the  Longley-Rice  relationships 
involving  the  terrain  parameter,  Ah,  are  used  to  estimate  radio  horizon 
parameters  when  such  information  is  not  available  from  facility  siting  data. 
The  model  includes  allowance  for  (a)  average  ray  bending,  (b)  horizon 
effects,  (c)  long-term  fading,  (d)  ground  facility  antenna  patter^  (e) 
surface  reflection  multipath,  (f)  tropospheric  multipath,  and 
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and  (g)  atmospheric  absorption.  However,  special  allowances  are  not 
included  for  the  less  common  effects  of  (a)  ducting,  (b)  rain  attenuation, 
(c)  rain  scatter,  (d)  ionospheric  scintillations,  or  (e)  the  aircraft  an¬ 
tenna  pattern. 

A  detailed  discussion  of  the  propagation  model  is  provided  in 
appendix  A. 


3.  COMPUTER  PROGRAM 

The  propagation  model  described  in  section  2  has  been  incorporated 
into  three  computer  programs.  These  programs  are  written  in  FORTRAN 
for  a  digital  computer  (CDC  3800)  at  the  Department  of  Commerce,  Boulder, 
Colorado,  Laboratories.  Since  they  utilize  the  cathode  ray  tube  micro¬ 
film  plotting  capability  at  the  Boulder  facility,  substantial  modifica¬ 
tion  would  have  to  be  made  for  operation  at  any  other  facility.  Average 
running  time  for  the  power  density  and  station  separation  programs  is  a 
few  seconds  for  each  graph  produced,  whereas  calculations  for  service 
volumes  may  take  a  minute  or  so.  Information  on  input  parameter  require¬ 
ments  and  output  produced  is  provided  in  sections  3.1  and  3.2,  respec¬ 
tively.  Program  listings  are  given  iri  appendix  B. 

3.1  Input  Parameters 

The  programs  may  be  operated  with  20  or  more  separate  parameters 
specified.  Most  parameters  not  specifically  provided  as  input  will  be 
set  to  initial  conditions  incorporated  into  the  programs  or  will  be  esti¬ 
mated  from  parameters  that  are  specified.  However,  three  primary  parameters 
must  be  provided  by  the  user.  These  are  facility  antenna  height,  frequency, 
and  aircraft  altitude.  Most  input  parameters  are  common  to  all  three  pro¬ 
grams  and  are  discussed  in  section  3.1.1.  Section  3.1.2  is  devoted  to 
those  additional  parameters  needed  for  each  program. 
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3.1.1  Common  Parameters 


Parameters  that  may  be  specified  as  input  common  to  ell  three  pro¬ 
grams  are  summarized  in  table  1,  along  with  the  acceptable  value  range  (or 
options  available)  and  the  value  (or  option)  selected  in  lieu  of  a  speci¬ 
fied  parameter.  For  convenience,  parameters  are  listed  in  table  1  in  the 
same  order  as  in  the  parameter  sheet  produced  by  the  computer  for  the 
power  density  program  (fig.  3). 

Blank  spaces  are  provided  in  table  1  so  that  copies  of  it  can  be 
used  to  specify  input  requirements  for  program  runs.  The  units  of  mea¬ 
sure  following  each  blank  are  the  units  that  will  be  assumed  for  values 
placed  in  the  blanks  if  other  units  are  not  provided.  Blanks  are  not 
provided  where  fixed  sets  of  options  are  available,  and  the  option  desired 
should  be  circled  to  indicate  preference.  Where  values  (or  options)  are 
not  specified,  the  values  (or  options)  marked  by  asterisks  will  be  used. 
Each  parameter  listed  in  the  table  is  discussed  below. 

Aircraft  Altitude  Above  Mean  Sea  Level  (msl  ) 

As  shown  in  figure  1,  this  altitude  is  measured  above  msl.  The 
propagation  model  is  not  valid  for  facility  antennas  located  below  the 
surface,  and  radio  horizons  may  riot  be  treated  correctly  if  the  aircraft 
altitude  is  less  than  the  facility  antenna  elevation  above  msl.  Use  of 
such  aircraft  altitudes  will  result  in  an  aborted  run  after  an  appropriate 
note  has  been  printed  on  the  computer-generated  parameter  sheet  (fig.  5). 
Notes  are  printed,  but  the  run  is  not  aborted  if  the  altitude  is  (a)  less 
than  1.5  ft  where  surface  wave  contributions  that  are  not  Included  in  the 
model  could  become  Important,  (b)  less  than  the  effective  reflecting  sur¬ 
face  elevation  plus  500  ft  where  the  model  may  fail  to  give  proper  consi¬ 
deration  to  the  aircraft  radio  horizon,  or  (c)  yreater  than  300,000  ft, 
where  ionospheric  effects  not.  included  in  the  model  may  become  important. 
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Aircraft  altitude  above  msl 


I 


Facility  antenna  height  above  site  surface 


Facility  site  elevation  above  msl 


Effective  reflection  surface  elevation  above  msl 


Mean  sea  level  (msl) 


Figure  1.  Antenna  heights  and  surface  elevations. 

Facility  Antenna  Height  Above  Site  Surface  (ss) 

As  shown  in  figure  1,  this  height  is  measured  above  the  facility  site 
surface  (ss),  not  msl .  The  propagation  model  is  not  valid  for  antennas 
below  the  surface,  and  such  a  facility  antenna  height  will  result  in  an 
aborted  run,  after  an  appropriate  note  has  been  printed  on  the  computer¬ 
generated  parameter  sheet  (fig.  5).  Notes  are  printed,  but  the  run  is  not 
aborted  if  the  height  is  (a)  less  than  1.5  ft,  for  which  surface  wave  con¬ 
tributions  not  included  in  the  model  could  become  important,  or  (b)  greater 
than  9,000  ft,  for  which  the  model  may  include  too  much  ray  bending. 

Frequency 

Notes  are  printed  if  the  frequency  is  (a)  less  than  100  MHz,  when 
neglected  ionospheric  effects  may  become  important;  (b)  greater  than 
5  GHz,  when  neglected  attenuation  and/or  scattering  from  hydrometeors 
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(rain,  etc.)  may  become  important;  and  (c)  greater  than  17  GHz,  when 
the  estimates  made  for  atmospheric  absorption  may  be  inaccurate.  For  fre¬ 
quencies  less  than  20  MHz  or  greater  than  100  GHz,  the  run  is  aborted. 

Absorption  (at  surface)  Oxygen  and  Water  Vapor  Options 

The  program  will  calculate  surface  oxygen  and  water  vapor  absorption 
rates  if  values  are  not  specified.  These  calculations  involve  interpola¬ 
tion  between  values  taken  from  Rice  et  al .  [40,  fig.  3.1].  Metric  units 
(dB/km)  are  used  for  these  parameters  since  this  allows  values  printed  on 
the  parameter  sheet  to  be  checked  directly  against  sources  of  such  infor¬ 
mation  [40,  fig.  3.1;  3,  sec.  7.3;  30,  ch  8]. 

Effective  Altitude  Correction  Factors  Options 

If  not  specified,  these  factors  are  calculated  by  ray  cracing 
through  an  exponential  atmosphere  [3,  sec.  3.8;4].  These  factors  are  used 
in  correcting  for  the  excessive  bending  associated  with  the  effective 
earth  radius  model  when  high  (>  9,000  ft)  antennas  are  used  [40,  fig.  6.7]. 
However,  values  provided  by  Rice  et  al .  [40,  fig.  6.7]  are  based  on  ray 
tracing  through  a  three  part  atmosphere  [3,  sec.  3.7]. 

Effective  Reflection  Surface  Elevation  Above  msl 

As  shown  in  figure  1,  this  elevation  is  measured  above  msl.  If  not 
specified  it  will  be  taken  as  the  "terrain  elevation  above  msl  at  site." 
This  factor  is  used  when  the  terrain  from  which  reflection  is  expected 
is  not  at  the  same  elevation  as  the  facility  site,  e.g.,  a  facility 
located  on  a  hill  top  or  cliff  edge.  When  the  elevation  of  the  facility 
antenna  is  below  the  spherical  reflection  surface  level,  a  note  will  be 
printed  and  the  run  aborted. 

Equivalent  Isotropically  Radiated  Powe r 

Equivalent  isotropically  radiated  power  (EIRP)  is  the  power  radiated 
from  the  facility  transmitting  antenna  increased  by  the  antenna's  main 
lobe  directive  gain  (expressed  in  decibels  above  an  isotropic  antenna). 

For  example,  a  radiated  power  of  10  dBW  and  an  antenna  gain  of  10  dB  would 
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result  in  20  dBW  EIRP.  Effective  radiated  power  (ERP)  is  similar  to  EIRP 
but  is  calculated  with  an  antenna  measured  relative  to  a  half-wave  dipole; 
therefore,  EIRP  values  are  2.15  dB  greater  than  ERP  values  when  the  same 
radiated  power  is  involved. 

Facility  Antenna  Type  Options 

These  options  involve  the  antenna  gain  pattern  of  the  facility 
antenna  in  the  vertical  plane.  Patterns  currently  built  into  the  program 
are  shown  in  figure  2  where  antenna  gain,  normalized  to  the  maximum  gain, 
is  plotted  against  elevation  angle  (measured  above  the  horizontal).  The 
"cosine"  pattern  is  used  for  a  vertically  polarized  electric  dipole  or  a 
horizontally  polarized  magnetic  dipole  such  as  the  antenna  associated  with 
the  VHF  Omni  Range  (VOR)  or  Instrument  Landing  System  (ILS).  FAA  specifi¬ 
cations  [13,  sec.  3.5]  were  used  to  define  the  Distance  Measuring  Equipment 
(DME)  pattern.  Measured  gain  data  on  the  RTA-2  antenna,  supplied  to  ITS 
by  FAA,  were  used  in  obtaining  the  pattern  for  this  Tactical  Air  Navigation 
(TACAN)  antenna.  The  JTAC  [29,  p.  51]  pattern  is  for  an  antenna  with  a 
40°  half-power  beamwidth  and  a  beam  that  is  tilted  up  to  20°.  Program 
modifications  can  easily  be  made  to  accommodate  other  patterns  that  are 
specified  in  terms  of  gain  versus  elevation  angle. 

Antenna  pattern  data  is  used  to  provide  information  on  gain  rela¬ 
tive  to  the  main  beam  only.  The  extent  to  which  the  facility's  main 
beam  antenna  gain  exceeds  that  of  an  isotropic  antenna  is  included  in  the 
specification  of  equivalent  isotropically  radiated  power,  EIRP,  since 

EIRP  *  PJR  +  GM  dBW  (1) 

where  PyR(dBW)  is  the  total  power  radiated  from  the  facility  antenna  and 
Gm  (dB  greater  than  isotropic)  is  the  main  beam  gain  of  the  facility 
antenna . 
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'ormalized  antenna  gain  vs.  elevation  angle. 


Facility  Antenna  Counterpoise  Diameter 

The  counterpoise  was  incorporated  into  the  model  for  the  VOR.  It 
will  not  be  included  in  the  calculations  if  its  diameter  is  specified  as 
zero,  and  the  parameters  associated  with  it  will  not  be  printed.  A  diameter 
greater  than  500  ft  will  cause  a  warning  note  to  be  printed,  but  will  not 
abort  the  run. 

Facility  Antenna  Counterpoise  Height  Above  ss 

If  the  height  above  the  site  surface  is  less  than  zero,  it  will  be 
set  equal  to  zero.  An  appropriate  note  will  be  printed  and  the  run 
aborted  if  the  height  is  (a)  greater  than  500  ft  or  (b)  greater  than 
the  "facility  antenna  height." 

Facility  Antenna  Counterpoise  Surface  Options 

These  options  fix  the  conductivity  and  dielectric  constant  asso¬ 
ciated  with  the  counterpoise  surface.  Values  estimated  for  each  option  are 
given  in  table  2  [32,  table  2]. 


Table  2.  Surface  Types  and  Constants 


Type 

Conductivity 

(mhos/m) 

Dielectric 

Constant 

Poor  ground 

0.001 

4 

Average  ground 

0.005 

15 

Good  ground 

0.02 

25 

Sea  water 

5 

81 

Fresh  Water 

0.01 

81 

Concrete 

0.01 

5 

Metal 

107 

1 

12 


Facility  Antenna  Polarization 

The  option  selected  for  polarization  (horizontal)  when  a  specific 
option  is  not  selected  will  frequently  result  in  poorer  propagation  con¬ 
ditions  for  typical  1 ine-of-sight  air/ground  links. 

Horizon  Obstacle  Distance  from  Facility 

If  not  specified,  this  distance  will  be  calculated  from  horizon 
parameters  that  are  specified  and/or  by  using  the  terrain  parameter  Ah. 

When  the  distance  is  not  within  0.1  to  3  times  the  smooth  earth  horizon 
distance,  a  warning  note  will  be  printed,  but  the  run  will  not  be  aborted. 

Horizon  Obstacle  Elevation  Angle  Above  Hori zontal  at  Fac i 1 i ty 

If  not  specified,  this  angle  will  be  calculated  from  horizon  param¬ 
eters  that  are  specified  and/or  by  using  the  terrain  parameter  Ah.  When 
the  angle  exceeds  12°,  a  warning  note  will  be  printed  but  the  run  will  not 
be  aborted. 

Horizon  Obstacle  Height  Above  n.sl 

If  not  specified,  this  height  will  be  calculated  from  horizon  param¬ 
eters  that  are  specified  and/or  by  using  the  terrain  parameter  Ah.  When 
the  height  is  not  within  the  0  to  15,000  ft-msl*  range,  a  warning  note  will 
be  printed  but  the  run  will  not  be  aborted. 


Horizon  Obstacle  Type  0 ptions 

When  the  smooth  eartn  option  is  used,  all  horizon  parameters, 
effective  reflection  surface  elevation,  and  the  terrain  parameter  Ah  are 
set  to  their  smooth  earth  values. 

Minimum  Monthly  Mean  Surface  Refractivity 

Values  for  the  minimum  monthly  mean  surface  refractivity  referred 
to  mean  sea  level,  NQ,  may  be  obtained  from  figure  3.  Specification  of 

*Th!s  notation  is  used  to  indicate  the  units  of  measure  and  the 
base  from  which  it  is  measured  so  that  ft-msl  implies  feet  above 
mean  sea  I  eve  I .  < 
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Nq  outside  the  250-t.o-400  N-unit  range  will  result  in  NQ  being  set  to  301. 
If  the  surface  refractivity.  Ns,  calculated  from  NQ  is  less  than  250  N- 
units,  N$  will  be  set  to  250  N-unlts  and  an  appropriate  note  printed. 

An  Ns  of  301  N-units  corresponds  to  an  effective  earth  radius  factor  of 
4/3  [40,  fig.  4.2]. 

Surface  Reflection  Lobing  Options 

Lobing  associated  with  interference  between  direct  and  reflected 
rays  in  the  1 ine-of-sight  region  contributes  to  the  short-term  varia¬ 
bility  (within-the-hour  fading)  or  is  used  to  define  the  median  level  in 
the  line-of-sight  region.  These  options  can  result  in  predictions  that 
are  very  different.  The  variability  option  provides  a  more  reliable 
estimate  of  propagation  statistics  in  most  cases.  However,  the  pattern 
option  is  useful  when  selecting  antenna  heights  to  avoid  low  signal 
levels  (nulls)  in  particular  portions  of  air  space.  With  the  first  option, 
lobing  is  treated  as  part  of  the  short-term  (within-the-hour)  variability 
when  the  reflected  ray  path  length  exceeds  the  direct  ray  path  length 
by  more  than  half  a  wavelength  (inside  horizon  lobe);  i.e.,  the  lobing 
pattern  is  not  plotted.  The  other  option  allows  the  median  level  to  be 
determined  by  such  lobing  for  several  ( —  '10)  lobes  just  inside  the 
radio  horizon;  i.e.,  the  lobing  pattern  will  be  plotted.  Regardless  of 
the  option  selected,  lobing  caused  by  reflection  from  the  counterpoise 
(if  present)  is  used  in  median  level  determination  for  about  10  lobes 
and  does  not  contribute  to  the  short-term  fading,  i.e.,  if  present, 
counterpoise  lobing  is  plotted  with  either  option. 

Terrain  Elevation  Above  ms]  at  Site 

This  is  the  elevation  of  the  facility  site  above  msl.  It  is  used 
to  calculate  the  height  of  the  facility  antenna  above  msl  from  "facility 
antenna  height  above  site  surface"  as  implied  by  figure  1.  Values  less 
than  zero  are  set  to  zero,  and  a  note  will  be  printed  if  the  15,000 
ft-msl  limit  is  exceeded,  but  the  run  will  not  abort. 


15 


Table  3.  Estimates  of  Ah  [32,  table  1] 


Type  of  Terrain  Ah  Ah 

(feet)  (meters) 


Water  or  very  smooth  plains  0-20  0-5 


Smooth  plains 

20  -  70 

5  -  20 

Slightly  rolling  plains 

70-130 

20  -  40 

Rolling  plains 

130  -  260 

40  -  80 

Hills 

260  -  490 

80  -  150 

Mountains 

490  -  980 

150  -  300 

Extremely  rugged  mountains 

>2,000 

>700 

Terrain  Parameter  Ah 

This  parameter  is  used  to  characterize  irregular  terrain.  Values 
for  it  may  be  calculated  from  path  profile  data  [32,  annex  2],  or 
estimated  using  table  3. 

Terrain  Type  Options 

These  options  fix  the  conductivity  and  dielectric  constants  asso¬ 
ciated  with  the  effective  reflecting  surface.  Values  associated  with 
each  option  are  given  in  table  2. 

Time  Availability  Options 

If  the  first  option  is  selected  short-term  (wi thiri-the-hour)  fading 
will  contribute  to  the  variability,  and  time  availability  is  applicable 
to  instantaneous  levels  that  are  available  for  specific  percentages  of 
the  time.  With  the  second  option  only  long-term  (hourly  median)  varia¬ 
tions  are  included  in  the  variability,  and  time  availability  is  applicable 
to  the  hourly  median  levels  that  are  available  for  a  specific  percentage 
of  hours. 
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3.1.2  Additional  Parameters 

Table  1  may  be  used  to  provide  most  of  the  information  needed  to  run 
any  of  the  three  programs,  and  the  additional  information  required  may  be 
specified  by  using  tables  4,  5,  and  6  for  the  power  density,  station 
separation,  and  service  volume  programs,  respecti vely.  Two  facilities 
(desired  and  undesired)  are  involved  in  station  separation  and  service 
volume  calculations  so  that  data  via  table  1  are  required  for  each  facility. 
The  "Graph  Format"  sections  of  these  tables  are  similar  except  for  items 
related  to  the  specific  parameters  used  as  abscissa  and  ordinate  in  the 
different  programs.  When  scales  are  not  specified,  appropriate  ones  will 
be  estimated  so  that  the  "Graph  Format"  items  should  be  specified  only 
when  definite  requirements  exist.  A  title  of  35  characters  or  spaces  may 
be  specified;  it  will  appear  on  the  computer-generated  plots  and  param¬ 
eter  sheets  (samples  given  in  sec.  3.2). 

Additional  parameters  for  the  power  density  program  (table  4)  in¬ 
volve  only  "Graph  Format"  parameters  so  that  the  above  discussion  is 
sufficient.  However,  parameters  other  than  "Graph  Format"  are  included 
in  tables  5  and  6.  These  are  described  in  the  text  below. 

Distance  from  Desired  Facility  to  Aircraft  (Table  5) 

A  sketch  showing  the  relative  positions  of  the  desired  facility, 
undesired  facility,  and  aircraft  is  given  in  figure  4.  The  great  circle 
distance  from  the  desired  facility  to  the  aircraft,  dQ,  and  the  great 
circle  distance  from  the  undesired  facility,  dy,  are  shown. 

D/U  Signal  Ratios  (Table  6) 

The  desired-to-undesired  signal  ratio,  D/U,  expressed  in  decibels, 
is  measured  at  the  terminals  of  an  ideal  (lossless)  isotropic  receiving 
aircraft  antenna.  If  the  desired  and  undesired  facilities  transmit  at 
the  same  frequency,  D/U  would  be  identical  with  the  power  density 
(dB-W/sq  m)  available  from  the  desired  facility  at  the  aircraft  minus 
that  available  from  the  undesired  station.  This  occurs  because  the 
effective  receiving  area  of  an  isotropic  antenna  varies  with  frequency 
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Table  4.  Additional  Parameters  for  Power  Density  Program. 


Parameter 

Range 

V  alue 

fh') 

Graph  Format  v  , 

Estimated  if  not  Specified 

Abscissa  grid  intervals 

<  difference  between 

n  mi 

(Facility-  to-aircraft 
distance) 

limits 

Left-hand  limit 

^  0,  right-hand  limit 

n  mi 

Right-hand  limit 

s  1,000  n  mi 

n  mi 

Ordinate  grid  intervals 

<  difference  between  limits 

dB 

(Power  density) 

Lower  Limit 

<  upper  limit 

dB-W/sq 

Upper  Limit 

Usually  <  0  dB-W/sq  m 

dB-W/sq 

Title 

<  35  characters  or  spaces 

(a) 

Copies  of  this  table  may  be  used  to  provide  data  for  computer 
runs  by  utilizing  the  blanks  provided  in  the  value  column.  The 
units  of  measure  following  each  blank  will  be  assumed  for  values 
placed  in  the  blanks  if  other  units  are  not  provided.  Other 
parameter  values  may  be  specified  using  table  1. 

(^Except  for  the  title,  graph  format  parameters  are  not  given 
on  the  computer  generated  parametei  sheet  (fig.  5). 
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Table  5.  Additional  Parameters  for  Station  Separation  Program. 


Parameter 


Range 


Additional  Primary  Model  Parameter,  Specification 


Distance  from  desired 
facility  to  aircraft 


0.1  to  1 , 000  n  mi 


Graph  Format^^,  Estimated  if  not  specified 


V  alue 


Required 


n  mi 


Abscissa  grid  intervals  <  difference  between 

(Station  separation)  limits  -  n  1711 

Left-hand  limit  '  0  ,<  right-hand  limit  _  n  mi 

Right-hand  limit  ^  1,000  n  mi  n  mi 

Ordinate  grid  intervals  <  difference  between _ dB 

(D/U  signal  ratio)  limits 

Lower  limit  <  Upper  limit  _  dB 

Upper  limit  Usually  <  100  dB  dB 


Title  <  35  characters  or  spaces 


(a) 

Copies  of  this  table  may  be  used  to  provide  data  for  computer 
runs  by  utilizing  the  blanks  provided  in  the  value  column.  The 
units  of  measure  following  each  blank  will  be  assumed  for  values 
placed  in  the  blanks  if  other  units  are  not  provided.  Other 
parameter  values  may  be  specified  using  Table  1. 

(^Except  for  the  title,  graph  format  parameters  are  not  given  on 
the  computer-generated  parameter  sheet  (fig.  4). 
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Table  6.  Additional  Parameters  for  Service  Volume  Program'. 


Parameter  Range  Value 

Primary  Model  Parameters,  Specification  Required 

D/U  signal  ratios  (dB)  Up  to  30  values  may  be 

specified  in  space  below 
for  a  particular  program  run. 


Station  separation  0.1  to  1,000  n  mi  _  n  mi 

Secondary  Model  Parameter,  Estimated  if  not  specified 

Aircraft  altitudes  (ft  above  msl)  up  to  25  may  be  specified  in  space 
below  to  cover  extent  of  the  service  volume  required.  Values  for 
effect' ve  altitude  correction  factors  may  be  paired  with  altitude 
values  if  desired.  Sec  Table  1  and  discussion  following  it  for 
additional  information. 


/L  \ 

Graph  Format  ,  Estimated  if  not  specified 


Abscissa  grid  intervals  <  difference  between  limits  _  n  mi 

Left-hand  limit  >  0 ,<  right-hand  limit  _  n  mi 

Right-hand  limit  <  1,000  n  mi  n>mi 

Ordinate  grid  intervals  <  difference  between  limits  _  ft 

(Aircraft  altitude) 

Lower  Limit  <  Upper  limit  ft 

Upper  Limit  -  300,000  ft  ft 

Title  <  35  characters  or  spaces  _  ft 


Xopies  of  this  table  may  be  used  to  provide  data  for  computer  runs  by 
utilizing  the  spaces  provided.  The  units  indicated  will  be  assumed  for 
values  provided  if  <Vher  units  are  not  provided.  Other  parameter  values 
may  be  specified  using  Taule  1  . 

^Except  for  the  title,  graph  format  parameters  are  not  given  on  the 
computer-generated  parameter  sheet  (fig.  5). 
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(see  eq.  3  of  sec.  3.2).  When  the  antenna  gain  and  transmission  line 
losses  associated  with  the  aircraft  are  common  to  both  desired  and  unde¬ 
sired  signals,  D/U  at  the  receiver  is  identical  with  D/U  at  the  antenna. 

Service  volume  calculations  are  done  by  (a)  calculating  D/U  values 
at  a  large  number  of  aircraft  locations  and  (b)  interpolating  between 
these  values  to  obtain  locations  where  other  D/U  levels  are  available. 

Each  service  volume  plot  is  applicable  to  one  specified  D/U  value,  but 
up  to  30  service  volume  curves  may  be  obtained  without  repeating  the 
initial  calculations  when  the  D/U  requirement  is  the  only  parameter 
allowed  to  change. 

Station  Separation  (Table  6) 

The  great  circle  station  separation,  S,  between  desired  and  undesired 
facilities  is 


S  =  dQ  +  djj  n  mi  (2) 

where  the  desired  and  undesired  distances,  dp  and  dp,  are  measured  in 
nautical  miles.  This  relationship  is  illustrated  in  figure  4.  Note  that 
the  30  service  volume  curves  mentioned  in  the  previous  paragraph  would 
correspond  to  30  D/'U  values,  all  for  a  single  station  separation. 

Aircraft  Altitudes 

Up  to  25  altitudes  may  be  used  in  calculating  D/U  values  from  which 
service  volumes  will  be  developed  (see  previous  paragraph  on  D/U  signal 
ratios).  These  would  normally  be  selected  to  (a)  provide  coverage  of 
the  air  space  of  interest  and  (b)  specifically  include  any  altitudes  that 
have  special  significance. 


3.2  Output  Generated 

Each  program  causes  the  computer  to  produce  (a)  a  listing  of  param¬ 
eters  associated  with  a  particular  run  and  (b)  a  microfilm  plot.  These 
outputs  are  provided  for  each  parameter  set  used  as  input  to  the  computer 
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and  are  tied  to  each  other  by  a  run  code  consisting  of  the  date  and  time 
at  which  calculations  for  a  particular  parameter  set  started.  Sample 
outputs  for  the  power  density,  station  separation,  and  service  volume  pro¬ 
grams  are  provided  in  sections  3.2.1,  3.2.2,  and  3.2.3,  respectively. 

3.2.1  Power  Density 

A  sample  parameter  sheet  for  the  power  density  program  is  shown  in 
figure  5.  Parameters  are  given  in  the  same  order  as  they  were  in  table  1 
(sec.  3.1).  They  were  selected  so  that  a  comparison  with  the  reference 
[18,  fig.  1]  can  be  made.  The  term*,  Ag  dB-sq  m,  required  to  convert  power 
density*,  S,  dB-W/sq  m,  to  power  available  at  the  terminals  of  an  isotropic 

a 

antenna  P.  dBW,  is  given  at  the  bottom  of  the  parameter  sheet;  i.e., 

Pj  =  Sa  +  Afi  dBW.  (3) 

Figure  6  shows  the  power  density  versus  distance  curves  that  go 
with  the  parameter  sheet  provided  in  figure  5.  The  curves  show  the 
power  density  levels  expected  to  be  exceeded  for  5%,  50%,  and  95%  of  the 
time  along  with  the  power  density  that  would  be  present  under  free-space 
propagation  conditions.  Lobing  is  not  shown  in  figure  6  curves  since  the 
option  to  consider  lobing  as  part  of  the  variability  was  used.  Figure  7 
shows  the  lobing  that  results  when  the  other  option  is  taken. 


3.2.2  Station  Separation 

Sample  parameter  sheets  for  the  station  separation  program  are 
shown  in  figures  8  and  9.  A  parameter  sheet  was  produced  for  each 
facility  (desired,  fig.  8;  undesired,  fig.  9),  since  they  do  not  share 
common  parameters.  The  format  of  the  parameter  sheets  is  similar  to 


The  notation  use.d  for  the  units  of  these  quantities  is  intended  to 
imply  that  they  are  decibel-type  quantities  obtained  by  taking  10  log 
of  a  quantity  with  the  units  indicated  after  dB~;  e.g.,  A  =10  log  a 
(effective  area  expressed  in  square  meters).  !'  e 
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PARAMETERS  FOR  ITS  PROPAGATION  MODEL  AUG  73 
09/05/73  16501 523  RUN 


POWER  DENSITY  FOR  ISOTROPIC  ANT. 
REQUIRED  OR  FIXED 


AIRCRAFT  ALTITUDE:  40000  FT  ABOVE  MSL 

FACILITY  ANTENNA  HEIGHT:  50.0  FT  ABOVE  SITE  SURFACE 

FREQUENCY:  125  MHZ 

SPECIFICATION  OPTIONAL 


ABSORPTION:  OXYGEN  0.00029  DB/KM* 

WATER  VAPOR  0.00000  DB/KM* 

EFFECTIVE  ALTITUDE  CORRECTION  FACTOR**  2l07  FT* 

EFFECTIVE  REFLECTION  SURFACE  ELEVATION  ABOVE  MSL:  0  FT 

EQUIVALENT  ISOTROPICALLY  RADIATED  POWER:  0.0  DBW 

FACILITY  ANTENNA  TYPE:  ISOTROPIC 
POLARIZATION:  HORIZONTAL 

HORIZON  OBSTACLE  DISTANCE:  8.69  N  MI  FROM  FACILITY* 

ELEVATION  ANGLE:  -0/  6/30  DEG/MI N/SEC  ABOVE  HORIZONTAL* 

HEIGHT:  0  FT  ABOVE  MSL 

TYPE:  SMOOTH  EARTH 

MINIMUM  MONTHLY  MEAN  SURFACF  RE FRACT I V I T Y : 

301  N-UNITS  AT  SEA  LEVEL:  301  N-UNITS 

SURFACE  REFLECTION  LO0ING:  CONTRIBUTES  TO  VARIABILITY 
TERRAIN  ELEVATION  AT  SITE:  0  FT  ABOVE  MSL 

PARAMETER**  0  FT 
TYPE:  AVERAGE  GROUND 

TIME  AVAILABILITY.*  FOR  INSTANTANEOUS  LEVELS  EXCEEDED 


POWER  DENSITY  (DB-W/SQ  M)  values  may  BE  CONVERTED  TO  POWER 
AVAILABLE  AT  THE  TERMINALS  OF  A  PROPERLY  POLARIZED 
ISOTROPIC  ANTENNA  (DBW)  BY  ADDING  -3.4  DB-SQ  M. 

*  COMPUTED  VALUE 


Figure  5.  Sample  parameter  sheet,  power  density  program. 
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Run  Cod*:  09/05/73  !6:Q!:23 


141  bs/fl-0P  u  !  ^ltcuap  j  )  •  o  j 
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Figure  S.  Sample  potter  density  versus  distance  plot. 


Run  C**#:  03/05/73  16:01:30 
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ersus  dr  stance  plot 3  with  lobing. 


PARAMETERS  FOR  ITS 
09/05/73 


PROPAGATION  MODEL 
16  56: 49  RUN 


AUG  73 


DESIRED  STATION  IS  ILS  LOCALIZER  (8-LOOP) 
REQUIRED  OR  FIXED 


AIRCRAFT  ALTITUDE:  6250  FT  ABOVE  MSL 

FACILITY  ANTENNA  HEIGHT:  5.5  FT  ABOVE  SITE  SURFACE 

FREQUENCY:  110  MHZ 

SPECIFICATION  OPTIONAL 


ABSORPTION:  OXYGEN  0.00023  DB/KM* 

WATER  VAPOR  0.00000  DB/KM* 

EFFECTIVE  ALTITUDE  CORRECTION  FACTOR:  0  FT* 

EFFECTIVE  REFLECTION  SURFACE  ELEVATION  ABOVE  MSL :  0  FT 

EQUIVALENT  ISOTROPICALLY  RADIATED  POWER.*  22.1  DBW 
FACILITY  ANTENNA  TYPE.'  8~L00P  ARRAY  (COSINE  VERTICAL  PATTERN) 
POLARIZATION:  HORIZONTAL 

HORIZON  OBSTACLE  DISTANCE-'  2*88  N  MI  FROM  FACILITY* 

ELEVATION  ANGLE:  "0/  2/  9  DEG/M  I N/SEC  ABOVE  HORIZONTAL* 

HEIGHT:  0  FT  ABOVE  MSL 

TYPE:  SMOOTH  EARTH 

MINIMUM  MONTHLY  MEAN  SURFACE  REFRACT  IV ITY 

301  N-UN  ITS  AT  SFA  LFVEL,'  301  N-UNITS 

SURFACE  REFLECTION  LOSING:  CONTRIBUTES  TO  VARIABILITY 
TERRAIN  ELEVATION  AT  SITE:  0  FT  ABOVE  MSL 

PARAMETER:  0  FT 

TYPE:  AVERAGE  GROUND 

TIME  AVAILABILITY:  FOR  INST ANTANEOUS  LEVELS  EXCEEDED 


*  COMPUTED  VALUE 


« 


Figure  8. 


Sample  parameter  sheet,  station  separation 
program ,  desired  faoi l i t.g . 
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PARAMETERS  FOR  ITS  PROPAGATION  MODEL 
09/05/73  16:56:49  RUN 


AUG  73 


UNDESIRED  STATION  IS  STANDARD  VOR 
REQUIRED  OR  FIXED 


AIRCRAFT  ALTITUDE-'  6250  FT  ABOVE  MSL 

FACILITY  ANTENNA  HEIGHT:  16.0  FT  ABOVE  SITE  5URFACE 

FREQUENCY:  110  M HZ 

SPECIFICATION  OPTIONAL 


ABSORPTION:  OXYGEN  0.00023  DB/KM* 

WATER  VAPOR  0.00000  DB/KM* 

EFFECTIVE  ALTITUDE  CORRECTION  FACTOR:  0  FT* 

EFFECTIVE  REFLECTION  SURFACE  ELEVATION  ABOVE  MSL:  0  FT 

EQUIVALENT  ISOTROPICALLY  RADIATED  POWER:  22.1  DBW 

FACILITY  ANTENNA  TYPE:  4-LOOP  ARRAY  (COSINE  VERTICAL  PATTERN) 
COUNTERPOISE  DIAMETER:  52  FT 

HEIGHT:  1?  FT  ABOVE  SITE  SURFACE 

SURFACE:  METALLIC 

polarization:  HORIZONTAL 

HORIZON  OBSTACLE  DISTANCE:  4.91  N  MI  FROM  FACILITY* 

ELEVATION  ANGLE:  ”0/  3/41  DEG/M  IN/SEC  ABOVE  HORIZONTAL* 

HEIGHT:  0  FT  AROVE  MSL 

TYPE-'  SMOOTH  EARTH 

MINIMUM  MONTHLY  MEAN  SURFACE  REFRACT  I VI TY 

301  N-UNITS  AT  SEA  LEVEL:  301  N-UNITS 

SURFACE  REFLECTION  LOSING:  CONTRIBUTES  TO  VARIABILITY 
TERRATN  ELEVATION  AT  SITE2  0  FT  ABOVE  MSL 

PARAMETFR:  0  FT 

TYPE:  AVERAGE  GROUND 

TIME  AVAILABILITY:  FOR  INSTANTANEOUS  LEVELS  EXCEEDED 


*  COMPUTED  VALUE 


Figure  9.  Sample  parameter  sheet ,  station  separation 
pro  gr  art,  unde  sired,  facility. 
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Run  Cede:  09/05/73  tfc:56:49 


gp  ui  oiioj  jogfiit  n/Q 


Figure  10.  Sarrple  D/U  signal  ratio  versus  station  separation  plot. 


that  produced  with  the  power  'density  program  (fig.  5}  except  for  the  addi¬ 
tional  primary  parameter  of  "Distance  from  desired  facility  to  aircraft." 
In  accordance  with  footnote  c  of  table  1,  counterpoise  data  is  included 
on  the  desired  station  parameter  sheet  (fig.  8)  only. 

The  station  separation  plot  generated  for  the  parameters  given  in 
figures  8  and  9  is  shown  in  figure  10.  Desired-to-undesi red ,  D/ll,  signal 
ratios  (see  D/U  Signal  Ratio  paragraph  in  sec.  3.1.2)  are  plotted  against 
station  separation  (see  Station  Separation  paragraph  of  sec.  3.1.2)  for 
three  time  availabilities  (5%,  50%,  and  95%)  and  free-space  propagation 
conditions.  These  curves  are  calculated  for  a  fixed  desired  facility 
to  aircraft  distance  so  that  the  undesired  facility  to  aircraft  distance 
varies  in  accordance  with  (2).  A  time  availability  of  95%  implies  that 
the  D/U  corresponding  to  it  for  a  specific  configuration  will  be  available 
at  least  95%  of  the  time  (see  Time  Availability  Options  paragraph  of  sec. 
3.1.1). 


3.2.3  Service  Volume 

Figure  11  is  a  sample  parameter  sheet  for  the  service  volume  program. 
Only  one  parameter  sheet  was  produced  since  the  desired  and  undesired 
facilities  were  given  identical  parameters.  Except  for  data  associated 
with  D/U  ratios,  station  separations,  and  aircraft  altitudes  (see  para¬ 
graphs  on  D/U  Signal  Ratios,  Station  Separation,  and  Aircraft  Altitudes 
in  sec.  3.1),  the  format  is  similar  to  that  produced  by  the  power 
density  program  (fig.  5). 

The  service  volume  plot  generated  for  the  parameters  given  in 
figure  11  is  shown  in  figure  12.  Contours  of  constant  D/U  (see  D/U 
Signal  Ratio  paragraph  in  sec.  3.1.2)  are  plotted  in  the  altitude  versus 
distance  between  facilities  plane.  These  are  shown  for  free-space 
propagation  conditions  and  three  time  availabilities  (5%,  50%,  and  95%). 
Inside  the  volume  formed  by  rotating  the  contours  about  the  ordinate  axis, 
the  time  availability  will  almost  always  equal  or  exceed  that  associated 
with  the  contours  used  to  form  it.  A  fixed  station  separation  is  used 
in  producing  all  curves  shown  on  a  particular  service  volume  plot  (see 
Station  Separation  paragraph  of  sec.  3.1.2). 
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PARAMETERS  FOR  SERVICE  VOLUME  CURVES 
ITS  MODEL  AUG  73 
09/05/73  20:02:25  RUN 


DESIRED/UNDESIRED  STATIONS  ARE  VOR  WITH  COUNTERPOISE 


REQUIRED  OR  FIXED 


AIRCRAFT  ALTITUDES  IN  FT  ABOVE  MSL  :  500*  1000* 

10000*  20000*-  30000*  40000,  50000*  60000* 

80000*  90000*  100000 

D/U  RATIOS  IN  DB:  70 

FACILITY  ANTENNA  HEIGHT:  16*0  FT  ABOVE  SITE  SURFACE 

FREQUENCY*.  113  MHZ 

STATION  SEPARATION:  390  N  MI 


5000, 

70000* 


SPECIFICATION  OPTIONAL 


ABSORPTION:  OXYGEN  0.00025  OB/KM* 

WATER  VAPOR  0.00000  DB/KM* 

EFFECTIVE  REFLECTION  SURFACE  ELEVATION  ABOVE  MSL*'  0  FT 

EQUIVALENT  ISOTROPICALLY  RADIATED  POWER:  22.1  DBW 

FACILITY  ANTENNA  TYPE:  4-LOOP  ARRAY  (COSINE  VERTICAL  PATTERN) 
COUNTERPOISE  DIAMETER:  52  FT 

HEIGHT:  17  FT  ABOVE  SITE  SURFACE 

SURFACE:  METALLIC 

POLARIZATION.*  HORIZONTAL 

HORIZON  OBSTACLE  D I  STANCE  ;  4.91  N  MI  FROM  FACILITY* 

ELEVATION  ANGLE:  -0/  3/41  DEG/M  IN/SEC  ABOVE  HORIZONTAL* 

HEIGHT:  0  FT  ABOVE  MSL 

TYPE-*  SMOOTH  EARTH 

MINIMUM  MONTHLY  MEAN  SURFACE  REFRACT  I  V I T  Y 

301  N-UNITS  AT  SEA  LEVEL:  301  N-UNITS 

SURFACE  REFLECTION  LOBING:  CONTRIBUTES  TO  VARIABILITY 
TERRAIN  ELEVATION  AT  SITE:  0  FT  ABOVE  MSL 

PARAMETER.*  0  FT 
TYPE:  AVERAGE  GROUND 

TIME  AVAILABILITY-*  FOR  INSTANTANEOUS  LEVELS  EXCEEDED 
*  COMPUTED  VALUE 


Figure  11. 


Sample  parame ter  sheet. 


service  volume  program. 
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Run  Code :  09/05/7}  20:02:25 


Figure  12.  Sample  serviae  volume  plot. 


4.  SUMMARY 


A  brief  description  of  a  computerized  propagation  model  for  air/ 
ground  telecommunications  developed  by  ITS  for  FAA  was  given  in  section 
2,  and  a  detailed  discussion  is  provided  in  appendix  A.  The  model  is  very 
similar  to  the  Longley-Rice  [32 j  propagation  model  for  propagation  over 
irregular  terrain.  It  uses  the  Longley-Rice  relationships  involving  the 
terrain  parameter.  Ah,  to  estimate  radio  horizon  parameters  when  such  in¬ 
formation  is  not  available  [32,  sec.  2.4].  Allowances  are  included  in  the 
model  for  (a)  average  ray  bending,  (b)  horizon  effects,  (c)  long-term 
power  fading,  (d)  ground  facility  antenna  pattern  and  counterpoise,  (e) 
surface  reflection  multipath,  (f)  tropospheric  multipath,  and  (g)  atmos¬ 
pheric  absorption.  However,  special  allowances  are  not  included  for  the 
less  common  effects  of  (a)  ducting,  (b)  rain  attenuation,  (c)  rain  scatter, 
(d)  ionospheric  scintillations,  or  (e)  the  aircraft  antenna  pattern. 

Three  computer  programs  that  utilize  the  propagation  model  are  dis¬ 
cussed  in  section  3,  and  program  listings  are  provided  in  appendix  B.  These 
programs  are  for  use  in  predicting  the  service  coverage  associated  with 
air/ground  radio  systems  in  the  frequency  band  from  0.1  to  20  GHz.  Power 
density,  station  separation,  and  service  volume  programs  are  used  to  ob¬ 
tain  computer-generated  microfilm  plots.  These  are,  respectively,  (1) 
power  density  available  at  a  particular  altitude  versus  distance  from 
a  ground-based  transmitting  facility,  (2)  the  desi red-to-undesired  signal 
ratios  versus  the  distance  separating  desired  and  undesired  facilities, 
and  (3)  constant  D/U  contours  in  the  altitude  versus  distance  space 
between  the  desired  and  undesired  facilities.  Sample  parameter  sheets 
(figs.  5,  8,  9,  and  11)  and  graphs  produced  using  the  programs  (figs.  6, 

7,  10,  and  12)  are  given  in  section  3.2.  Tables  1,4,  5,  and  6  of 
section  3.1  summarize  input  data  requirements  for  the  programs  and  have 
spaces  provided  on  them  so  that  they  may  be  used  to  record  values  for 
input  data. 
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5.  RECOMMENDATIONS 

The  current  ITS  propagation  model  for  air/ground  propagation  can 
be  used  for  a  wide  range  of  input  parameters  (see  table  1  of  sec.  3.1). 
Further  development  work  on  the  model  should  include  (a)  testing  the  model 
within  its  current  parameter  ranges  by  utilizing  it  to  provide  predictions 
for  particular  applications,  (b)  comparing  predictions  made  using  it  with 
experimental  data  and/or  theoretical  results,  and  (c)  revisions  to  improve 
prediction  accuracy  and  ranges. 

An  atlas  of  predictions  should  be  prepared  to  show  the  effect  of 
various  parameter  changes  on  transmission-loss  predictions.  Parameters 
of  primary  interest  would  be  (a)  facility  antenna  height,  (b)  frequency, 

(c)  facility  antenna  counterpoise  configuration  and  pattern,  (d)  horizon 
elevation  angle,  (e)  minimum  monthly  mean  surface  refracti vi ty ,  (f) 
terrain  parameter,  and  (g)  terrain  type. 

Although  some  comparisons  with  data  are  available  [20,  sec.  2.4; 

21],  more  should  be  made.  The  effort  to  locate  data  with  which  useful 
comparisons  can  be  made  should  be  continued. 

Methods  could  be  developed  and  appropriate  model  modifications 
made  to  predicted  propagation  characteristics  for  (a)  ducting  [44],  (b) 
rain  attenuation  [41],  (c)  rain  scatter  [8],  (d)  ionospheric  scintillations 
[45],  and  (e)  aircraft  antenna  patterns  [17,  eq.  36].  In  addition,  it 
might  be  desirable  to  include  capabilities  in  the  model  for  (a)  circular 
polarization  [39,  ch.  8],  (b)  long-term  fading  models  for  different 
climates  and  time  blocks  [40,  sec.  III. 7],  (c)  reflection  from  water 
where  sea-state  temperature  and  salinity  [5]  would  be  used  in  calculating 
the  reflection  coefficient,  (d)  absorption  where  water-vapor  absorption 
is  determined  using  relative  humidity,  and  (e)  reflection  from  a  non- 
spherical  surface  such  as  a  tilted  plane. 

Computer  programs  similar  to  those  described  here  should  be 
developed  for  (a)  air-to-air,  (o)  ground-to-satel 1 i te ,  and  (c)  air-to- 
satel'iite.  Work  on  these  programs  has  been  initiated  by  ITS  [19,  20], 
and  is  expected  to  continue,  but  will  be  limited  by  available  resources. 
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Ot nor  vim's i tins  of  the  programs  may  also  be  desirable  such  as  a  program 
to  produce  contours  of  constant  power  density  in  the  altitude  versus 
distance  space  above  a  great  circle  radial  from  a  facility,  i.e., 
service  volume  without  interference  [17,  fig.  9]. 


35 


APPENDIX  A.  PROPAGATION  MODEL 


The  propagation  model  used  in  the  programs  is  applicable  to  ground/ 
air  telecommunications  links  operating  at  radio  frequencies  from  about 
0.1  to  20  GHz  with  aircraft  altitudes  less  than  300,000  ft.  Ground- 
station  antenna  heights  must  be  (1)  greater  than  1.5  ft,  (2)  less  than 
9,000  ft,  and  (3)  at  an  altitude  below  the  aircraft.  In  addition,  the 
elevation  of  the  radio  horizon  must  be  less  than  the  aircraft  altitude. 
Ranges  for  other  parameters  associated  with  the  model  are  given  in 
table  1  (sec.  3.1.1). 

Units  of  measure  associated  with  input  parameters  are  also  given  in 
table  I,  and  those  associated  with  computer-generated  output  are  provided 
in  section  3.2.  However,  almost  all  of  the  calculations  within  the  pro¬ 
grams  are  made  with  distances  and  heights  expressed  in  kilometers,  and 
the  equations  given  in  this  appendix  follow  this  procedure,  i.e.,  unless 
specifically  stated  otherwise,  all  distances  and  heights  are  measured  in 
kilometers.  Frequency  is  always  measured  in  megahertz. 

Conceptually  the  model  is  very  similar  to  the  Longley-Rice  [32]  propa¬ 
gation  model  for  propagation  over  irregular  terrain;  i.e.,  attenuation 
versus  distance  curves  calculated  for  the  (a)  1 ine-of-sight  (sec.  A. 4. 2), 

(b)  diffraction  (sec.  A. 4. 3),  and  (c)  scatter  (sec.  A. 4. 4)  regions  are 
blended  together  to  obtain  values  in  transition  regions.  In  addition, 
the  Longley-Rice  relationships  involving  the  terrain  parameter,  Ah,  are 
used  to  estimate  radio  horizon  parameters  when  such  information  is  not 
available  from  facility  siting  data  (sec.  A. 4.1).  The  model  includes 
allowance  for  (a)  average  ray  bending  (sec.  A.4.1),  (b)  horizon  effects 
(sec.  A.4.1),  (c)  long-term  power  fading  (sec.  A. 5),  (d)  ground  facility 
antenna  pattern  and  counterpoise  (sec.  A. 4. 2),  (e)  surface  reflection 
multipath  (sec.  A. 6),  (f)  tropospheric  multipath  (sec.  A. 7),  and  (g) 
atmospheric  absorption  (sec.  A. 4. 5).  However,  special  allowances  are  rnjt 
included  for  (a)  ducting  [44],  (b)  rain  attenuation  [41],  (c)  rain 
scatter  [:.,,  (d)  ionospheric  scintillations  [45],  or  (e)  the  aircraft 
antenna  pattern  [17,  eq.  36], 
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A  discussion  of  the  computer  programs  in  t  >rms  of  input  requirements 
and  the  output  generated  is  given  in  section  3.  Computer  program  listings 
are  provided  in  appendix  B  along  with  some  annotation.  The  formulation 
used  in  this  appendix  was  devised  to  describe  the  propagation  model,  and 
some  of  the  variables  and  equations  used  here  are  not  specifically  used 
in  the  programs. 


A.l  Transmission  Loss 

Methods  and  procedures  have  been  developed  for  calculating  field 
strength  and  its  variability  at  VHF/CHF/SHF.  The  work  discussed  here 
follows  procedures  that  have  been  used  by  ITS  to  predict  statistically 
the  effects  of  terrain  and  atmosphere  on  the  variability  of  field  strength, 
and  on  the  performance  of  radio  systems  [7,  17,  18,  20,  21,  22,  27,  32, 

33,  40].  It  is  also  convenient  to  use  the  concept  of  transmission  loss 
[36,  37],  which  is  the  ratio  (usually  expressed  in  decibels)  of  power 
radiated  to  the  power  that  would  be  available  at  the  receiving  antenna 
terminals  if  there  were  no  circuit  losses  other  than  those  associated 
with  the  radiation  resistance  of  the  receiving  antenna. 

Transmission-loss  levels,  L(q),  that  are  not  exceeded  during  a 
fraction  of  the  time  q  are  calculated  from 

L(q )  =  Lb  (0.5)  +  Lgp-GF-GA-Yz(q)  dB  (4) 

where  Lh(0.5)  is  the  median  basic  transmission  loss  [40,  sec. 2],  Lgp  is 
the  path  antenna  gain  loss,  Gp  and  G^  are  free-space  antenna  gains  for 
the  ground  facility  and  aircraft,  respectively,  and  Yj-(q)  is  the  total 
variability. 

The  calculation  of  Lb(0.5)  is  described  in  section  A. 4.  Free-space 
loss  and  atmospheric  absorption  are  included  in  L ^ ( 0 . 5 )  along  with  lobing, 
diffraction,  and/or  scatter  attenuation. 

Values  for  Lgp  and  G^  are  taken  as  0  dB  in  the  model.  The  former  is 
valid  when  (a)  transmitting  and  receiving  antennas  have  the  same  polari¬ 
zation  and  (b)  the  maximum  gain  of  the  facility  antenna  is  less  than 

» 

50  db  [32,  sec.  1-3].  The  latter  results  from  assuming  that  the  aircraft 
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antenna  is  isotropic  (0  dB  gain  in  all  directions).  Values  for  Gp  are 
not  explicitly  used  in  the  model  since  the  maximum  facility  antenna  gain 
is  included  in  the  specification  of  equivalent  isotropically  radiated 
power  (secs.  A. 2  and  A. 3)  and  gain  normalized  to  the  maximum  is  used  in 
antenna  pattern  specification  (secs.  3.1.1  and  A. 4. 2). 

Total  variability,  Y^(q)  is  calculated  from 


YE(q)  =  fa)  +  Yu  fa)  dB  fa) 

(+  for  q  £  0.5  \ 

-  otherwise  / 

where  Y  (q)  is  the  variability  associated  with  long-term  power  fading 
(sec.  A. 5)  and  Y^(q)  is  the  variability  associated  with  multipath. 

This  method  of  combining  variabilities  is  similar  to  the  method  suggested 
by  Rice  et  al .  [40,  eq.  V.5]  and  is  the  same  as  that  previously  used  by 
Tary  et  al  ,  [42,  eq.  25].  The  Nakagami-Rice  distribution  [40,  sec.  V.2] 
is  used  for  Y^q).  Values  are  determined  using  K*.  the  ratio  in  decibels 
between  the  steady  component  of  the  received  power  and  the  Rayleigh  fading 
component,  where 


K  =  -10  log (WD  +  WJ  dB  .  (6) 

K  a 

Here,  WR  and  Wa  are  the  relative  power  levels  of  Rayleigh  fading  com¬ 
ponents  associated  with  surface  reflection  multipath  (sec.  A. 6)  and 
tropospheric  multipath  (sec.  A. 7). 


*The  K  defined  by  Rice  et  al.  [40,  sec.  V.2]  and  used  here 
differs  in  sign  from  the  K  defined  by  Norton  et  al.  [38].  Some 
of  the  subroutines  using  K  were  written  before  1967  so  that  K 
in  the  computer  program  has  a  sign  opposite  to  that  of  the  K 
used  in  this  text. 
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A.  2  Power  Density 


Power  density  Sa(q)  available  for  a  fraction  of  the  time  >  q  is  deter- 

a 

mined  using 


Sa(q)  =  EIRP  -  Lb(q)  <N  -  Afi  dB-W/sq  m  (7) 

where  EIRP  is  the  equivalent  isotropically  radiated  power  defined  in  (1) 
of  section  3.1.1,  l_b(q)  is  the  basic  (isotropic  antennas)  transmission 
loss  not.  exceeded  during  a  fraction  of  time  q,  G^  is  the  normalized  gain 
of  the  facility  antenna  (fig.  2)  that  is  directed  toward  the  aircraft 
( 1 i ne-of-s 1 ght )  or  toward  the  facility  radio  horizon  (beyond  line-of-sight) , 
and  Ag  is  the  effective  area  of  an  isotropic  antenna  [39,  sec.  4.11],  The 
formulation  used  to  determine  is  a  slight  extension  of  that  used  for 
gD  which  follows  (80);  i.e.,  G^  =  20  log  gQ.  Values  of  (q )  and  Ag  are 
determined  from 

Lb(q)  =  Lb(50)  -  Yz(q)  dB  (8) 

and 

Ap  =  10  1  og ( X^/4rr )  dB-sq  m  (9) 

where  the  total  variability  Y^.(q)  is  given  by  (5),  and  A^  is  the  wave¬ 
length  in  meters.  For  a  frequency  of  f  MHz, 

Am  =  299 . 7925/ f  m  .  (10) 

A. 3  Desired-to-Undesired  Signal  Ratio 

Desired-to-undesired  signal  ratios  that  are  available  for  a 
fraction  of  time  q,  D/U ( q )  dB,  at  the  terminals  of  a  lossless  isotropic 
airborne  receiving  antenna  are  calculated  using  [18,  sec.  3] 

D/U(q)  =  D/U<0.5)  +  YDU(q)  dB.  (11) 
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The  median  value  of  D/U(0.5)  and  the  variability  YDU(q)  of  D/U  are  calcu¬ 
lated  as 


D/U(0.5)  =  [EIRP-Lb(0.5)+GNJDesired 

-  [EIRP-Lb(0.5)tSN:Undes1red 


and 


Vq)  =  ±^Vq):i 


+  [V,(l-q)]! 

Desired  Undesired 


dB 


(12) 


(13) 


(-  for  q  >_  0.5\ 
+  otherwise  / 


where  EIRP  is  defined  by  (1)  of  section  3.1.1,  the  calculation  of  L^(0.5) 
is  discussed  in  section  A. 4,  values  for  antenna  options  currently 
available  are  given  in  figure  2,  and  Y^. (q )  values  are  obtained  using  (5). 

A. 4  Median  Basic  Transmission  Loss 
Median  basic  transmission  loss,  Lb(0.5),  is  calculated  from 

Lb(0-5)  =  Lbr  +  AY  +  Aa  dB  (14) 

where  L.^r  is  a  calculated  reference  level  of  basic  transmission  loss.  Ay 
is  a  conditional  adjustment  factor,  and  Aa  is  atmospheric  absorption 

a 

(sec.  A. 4. 5).  The  factor,  Ay,  [18,  sec.  3]  is  used  to  prevent  available 

signal  powers  from  exceeding  levels  expected  for  free-space  propagation  by 
an  unrealistic  amount  when  the  variability  about  L^(0.5)  is  large,  and 
(0.5)  is  near  its  free-space  level,  That  is, 

Lbf  =  32.45  +  20  log  f  +  20  log  r  dB  (15) 

where  f  MHz  is  frequency  and  r  km  is  the  shortest  faci 1 ity-to-ai rcraft 
ray  length, 
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0  if  (Lh,-3)  <  [Lh  -Y_(Q.l )]  if  lobing  option  (sec.  3.1.1) 

DT  or  .  usecj  and  aircraft  is 

within  10  lobes  of  its  radio 

A  =  J  horizon,  or  path  is  beyond  ^  dB  (16) 

'  I  line  of  sight 

(Lbf-3)  -  CLbr-Ye(0. 1 )]  otherwise 

L  J 

where  Y  (0.1)  is  the  long-term  variability  Y  (q)  described  in  section  A. 5 
with  q  =  0.1  and  is  calculated  from  (180).  Note  that  Ay  adjusts  l_b(0.5) 
so  that  Lb(0.1)  >  (Lb^-3)  when  Y^  =  0  in  (3). 

Terrain  attenuation.  Ay,  and  a  variability  adjustment  term, 

Ve(0.5,  d  ),  are  used  along  with  Lby  to  determine  Lby>;  i.e., 

Lbr  =  Lbf  +  AT  "  Ve{0-5’  de}  dB  *  (17) 

Methods  used  to  calculate  Vg(0.5,  dg)  are  described  in  section  A. 5. 
Since  the  effect  of  terrain  depends  on  the  propagation  mechanisms  in¬ 
volved,  the  discussion  of  terrain  attenuation,  Ay,  is  spread  through  three 
sections  dealing  with  propagation  in  the  1 ine-of-sight  (sec.  A. 4. 2), 
diffraction  (sec.  A. 4. 3),  and  scatter  regions  (sec.  A. 4. 4). 

A. 4.1  Horizon  Geometry 

Almost  all  calculations  within  the  programs  are  made  with  distances 
and  heights  expressed  in  kilometers,  and  the  equations  given  in  the 
appendix  follow  this  pattern,  unless  specifically  stated  otherwise.  Fre¬ 
quency  is  always  measured  in  megahertz,  and  angles  are  usually  measured 
in  radians. 

Geometry  for  the  facility  radio  horizon  is  shown  in  figure  13.  An 
effective  earth  radius  [3,  sec.  3.6],  a,  is  used  to  compensate  for  ray 
bending  so  that  the  ray  is  shown  as  a  straight  line  from  facility  to 
horizon,  and  as  a  curved  line  from  horizon  to  aircraft.  A  straight  line 
extension  from  horizon-to-aircraft  ray  is  shown  dotted  to  indicate  that 
the  effective  earth  radius  model  predicts  too  much  bending  for  high 
antennas,  which  would  result  in*a  maximum  great  circle  line-of-sight 
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distance,  d^,  that  is  excessive  [40,  fig.  6.7].  Facility  antenna  height, 
facility  horizon  elevation,  and  aircraft  altitude  above  msl  are  h^ ,  hL1 , 
and  h^,  respectively.  Facility  ray  horizon  elevation  angles  measured 
above  the  horizontal  at  the  facility  and  its  horizon  are  and  6^, 
re  lectively.  The  great  circle  facility-to-horizon  distance  is  . 

Effective  earth  radius,  a,  is  calculated  using  the  minimum  monthly 
mean  surface  refractivity  referred  to  mean  sea  level,  NQ  (fig.  3),  and  the 
height  of  the  effective  reflection  surface  above  mean  sea  level,  hrckm 
[40,  sec.  4] ;  i .e. , 
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Ns  =  Nq  exp(-0. 1057  hrs) 
aQ  =  6370  km 


N-unlts 


and 


a  =  a  [1-0. 04665  exp(0. 005577  N  M'1  km. 


(18) 

(19) 

(20) 


Here  N$is  the  surface  refractivity  at  the  effective  reflecting  surface, 
and  aQ  is  the  actual  earth  radius  to  about  three  significant  figures. 
Since  relationships  involving  a  are  approximate,  greater  precision  is 
usually  not  justified  or  appropriate. 

Facility  horizon  parameters  d^  ,  h^  ,  and  6^  are  related  to  each 
other  by  the  following 


6e1  =  Tan"1 


{ 


hLl‘hl  dLl  1  rad 


LI 


2a 


hLl  =  hl  +  2a 


LI 


+  dLl  tan  °el 


km 


and 


dLI  =  +- 


/2aThn-h1)  +  a2  tan2  0.,  -  a  tan  km 


Jel 


el 


(21) 

(22) 

(23) 


where  the  +  choice  is  made  such  that  (23)  yields  its  smallest  positive 
value.  If  d|j  and/or  0^  are  not  specified,  they  may  be  estimated  [32, 
sec.  2.4]  using  the  terrain  parameter,  Ah  km,  and  the  effective  height  of 
the  facility  antenna  above  the  reflecting  surface,  h^  km.  The  hg-|  is 
calculated  from  specified  elevations  (fig.  1)  or  is  taken  as  the  facility 
antenna  height  above  the  facility  site  surface  when  the  effective 
reflecting  surface  elevation  is  not  specified.  That  is. 


dLsl  =  hel 


km 


hg  =  larger  of  j  h^  or  0.005  j 


d|j  =  larger  of 


{ 


0.1  d 


Lsl  or 


dLsl  exP(-°-07  \/ Ah/he ) 


km 


} 


km 


(24) 

(25) 

(26) 


and 
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The  programs  allow  any  two  of  hjj  ,  djj ,  or  0g1  to  be  specified  or  esti¬ 
mated  via  Ah,  and  the  remaining  parameter  to  be  calculated.  When  a  smooth 
earth  is  specified,  Ah  is  set  to  zero,  h^  is  set  to  hr$,  set  to 
dLsl  ’  and  °el  ca^c'J1atecl  v^a  (21)-  This  logic  is  summarized  in  figure  14. 


Ray  tracing  is  used  in  the  determination  of  effective  aircraft  alti¬ 
tude,  maximum  line-of-sight  distance,  and  effective  distance  only  when 
the  effective  altitude  correcting  factor  is  not  specified.  Then  it  is 
performed  through  an  exponential  atmosphere  [3,  eqs.  3.44,  3.43,  3.40]  in 
which  the  refracti vi ty,  N,  varies  with  height  above  msl,  h  km,  as 


where 

and 


N  =  Ns  exp 


Ns 

Ce  =  1n  N$  +  AN 
AN  =  -7.32  exp(0. 005577  N  ) 


N-uni ts 


N-units/km  . 


(28) 

(29) 

(30) 


Thayer's  algorithm  [43]  for  ray  tracing  through  a  horizontally  stratified 

atmosphere  is  used  with  layer  heights  (above  hrs)  taken  as  0.01,  0.02, 

0.05,  0.1,  0.2,  0.305,  0.5,  0.7,  1,  1.524,  2,  3.048,  5,  7,  10,  20,  30.48, 

50,  70,  90,  110,  225,  350,  and  475  km.  Above  475  km  raybending  is  neglected; 

i.e.,  rays  are  assumed  to  be  straight  relative  to  a  true  earth  radius  ,  a  . 

o 

The  computer  subroutine  used  for  ray  tracing  (sec.  B.4.1 ,  RAYTRAC)  was 
written  so  that:  (a)  the  initial  ray  elevation  angle  may  be  negative; 

(b)  if  the  initial  angle  is  too  negative  it  will  be  set  to  a  value  that 
corresponds  to  grazing  for  a  smooth  earth;  and  (c)  the  antenna  heights 
may  be  very  large,  e.g.,  satellites. 
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from 


Effective  aircraft  altitude,  hg2  km  in  figure  13,  may  be  calculated 


and 


h2  -  hrs  km 


(31) 


Ah  km  . 
e 


(32) 


However,  Ahg  specification  is  neither  required  or  recommended.  When  Ahg 
is  not  specified,  hg2  is  defined  as  the  lesser  of  h^  or  the  aircraft 
altitude  above  the  effective  reflecting  surface  which  will  yield  the 
proper  aircraft  smooth-earth  horizon  distance  d^s2  when  used  with 


V  2a  h 


e2 


if  hg2  50  km 


JLs2 


km. 


(33) 


a  Cos-1[a/(a+h  „)]  otherwise 


The  upper  expression  in  (33)  is  based  on  a  parabolic  approximation  to 
the  earth's  surface  and  is  good  when  dLs2's  resulting  from  its  use  do  not 
exceed  about  a/10  km.  Whereas  the  lower  expression  is  for  a  spherical 
earth  and  may  not  yield  sufficient  precision  when  d|s2's  resulting  from 
its  use  do  not  exceed  a/10  km,  it  is  useful  when  altitudes  greater  than 
about  50  km  are  encountered.  Based  on  the  above,  hg2  calculations  are 
made  using 


e2 


4 


h  ~  -  Aha  if  All  is  specified 

a  c  G  G 


lesser  of 


a2 

or 


where 


JdLs2/(2a)  if  es2<  0.1  radj 
la[sec  (0s2)-l!]  otherwise  / 

d 


otherwise 


km  (34) 


Ls2 


s2 


rad  . 


(35) 
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The  d, „0  is  determined  by  tracing  a  ray  that  leaves  the  effective  reflec- 

i  LSc 

tion  surface  at  a  0  rad  take-off  angle  out  unti  1  ha2  1S  reached.  If  hg2 
is  set  equal  to  ha2  or  is  determined  from  Ahg,  dLs2  is  calculated  using 
(33).  Values  obtained  for  hg2  by  using  ray  tracing  do  not  always  agree 
with  those  [40,  fig.  6.7]  based  on  a  modified  effective  earth's  radius 
model  [3,  sec.  3.7],  since  the  ray  tracing  described  here  is  based  on  the 
later  exponential  model  [3,  sec.  3.8].  Actually  this  effective  earth  radius 
model  predicts  smooth  earth  radio  horizon  distances  that  are  too  short 
(insufficient  ray  bending)  for  antenna  heights  less  than  a  few  kilometers 
[3,  sec.  3.8],  but  the  propagation  models  [32,  40]  on  which  much  of  air/ 
ground  model  is  based  use  the  effective  earth  radius  model.  Therefore, 
ha2  is  selected  in  (34)  when  such  antenna  heights  are  encountered,  and 
Ah0  is  not  specified. 

Aircraft  horizon  parameters  are  determined  using  either  (a)  case  1, 
where  the  facility  horizon  obstacle  is  assumed  to  provide  the  aircraft 
radio  horizon,  or  (b)  case  2,  where  the  effective  reflection  surface  is 
assumed  to  provide  the  aircraft  radio  horizon.  The  great  circle  horizon 
distance  for  the  aircraft,  d^2,  is  calculated  using  the  parameters  shown 
in  figure  15  along  with  the  great  circle  distance,  d  km,  between  the 
facility  and  the  aircraft;  i.e.. 


hel  =  \l  -  hrs  km 


and 


d$^  =  \/2a  hg^  km 


'd-dL)  if  d  -  dL)  <  djL  ♦  dLs2 


l2 


d.  ,  otherwise 
ls2 


j 


km 


(36) 

(37) 


(38) 


Here  hgL  km  is  the  height  of  the  facility  horizon  obstacle  above  the 
effective  reflection  surface,  d  ^  is  the  smooth  earth  horizon  distance 
for  the  obstacle,  and  the  other  parameters  were  previously  discussed. 
The  horizon  ray  elevation  angle  .at  the  aircraft  is  measured  relative  to 
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1 


/ 


« 


Figure  15.  Geometry  for  aircraft  radio  horizon 
(not  drawn  to  scale). 

the  horizontal  at  the  aircraft,  with  positive  values  assigned  to  values 
above  the  horizontal,  and  is  calculated  from 


Maximum  Line-of-Sight  Distance,  d^  km,  is  calculated  using  effective 
earth  /adi us  geometry  or  d  t  (fig.  13),  i.e., 

r(a+he])  cos  6el 


ML 


(Cos- 


dLl  +  drt 


otherwise 


-  o 


el 


)  if 


Ah0  is  specified 


km.  (40) 


The  great  circle  ray-tracing  distance,  dr{.  km,  is  determined  by  tracing 
a  ray  from  the  horizon  obstacle  'to  the  aircraft  location  where  the  ray 
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Inavtn  Hit?  obstacle  at  tho  angle  (fig.  13).  This  angle  is  related 
to  by 


o 


L 


rad. 


(41) 


A. 4. 2  Line-of-SIght  Region 

Calculation  of  L^(0.5)  in  the  1 ine-of-sight  region  via  (14)  and  (17) 
involves  from  (15),  Ay  from  (16),  Afl  of  section  A. 4. 5,  Ve(0.5,  dg)  of 
section  A. l»,  and  Ay. 

A  detailed  discussion  of  the  methods  used  in  calculating  the  ter¬ 
rain  attenuation  term,  Ay,  in  the  line-of-sight  region  is  provided  in 
this  section.  Values  of  Ay  obtained  by  these  methods  are  used  only 
when  the  path  distance  does  not  exceed  the  maximum  line-of-sight  distance, 
i.o.  ,  only  when  ci  <.  d^,  where  the  determination  of  d^  is  described  in 
section  A. 4.1.  Allowances  are  included  for  (a)  lobing  caused  by  surface 
reflection,  (b)  lobing  caused  by  counterpoise  reflection,  and  (c) 
diffraction  near  the  radio  horizon.  Methods  used  to  combine  these 
allowances  will  be  described  in  detail;  then  a  block  diagram  of  the  pro¬ 
cedure  used  to  calculate  Ay  within  the  line-of-sight  will  be  provided. 

Path  length  difference,  Ar  km,  is  the  extent  by  which  the  length  of 

the  reflected  ray  path,  r-j  +  r^  =  r^  km,  exceeds  that  of  the  direct  ray, 

rQ  km.  It  is  used  in  calculations  involving  lobing  in  the  line-of-sight 

region,  and  the  geometry  involved  is  shown  in  figure  16.  Given:  (a)  the 

effective  earth  radius,  a  km  from  (20),  and  aQ  from  (19);  (b)  grazing 

angle,  if>  rad;  (c)  km  from  (3^),  and  hg2  from  (32);  (H)  counterpoise 

height  above  facility  site  surface,  h  km;  (e)  effective  facility  antenna 

c9 

height  above  reflection  surface,  h  ^  km;  and  (f)  facility  antenna  height 
above  its  counterpoise,  hfc  km.  The  Ar  and  the  corresponding  great  circle 
path  distance,  d  km,  are  calculated  for  both  surface  and  counterpoise 
reflection  lobing  as  follows: 
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z  =  (a0/a)  -  1  . 

(42) 

k3  =  l/(l+z  cos  i p) 

a 

(43) 

aa  "  ao  ka  ** 

(44) 

Aha  ■  ha2  '  he2  km 

(45) 

Aha  =  Ahg  (aa-a0)/(a-aQ)  km 

(46) 

( *1a2-A*1a  for  earth 

2  ^a2~A^1a"*1cg  ^or  counterDoise 

km 

(47) 

h  i  for  earth  . 

\ hf  for  counterpoise  J 

km 

(48) 

zl,2  '  aa  +  Hl,2  km 

(49) 

?J>2  =  Cos-1  [aa  cos  (♦)/,]  -  <|I 

rad 

(50) 

D1 ,2  =  *1,2  si"  al,  km 

(51) 

j  2  tan  for  <  1.56  rad  ] 

^1,2  ”  [H-|  2  otherwise  j 

km 

(52) 

Tan-1[(H^-Hj)/{D1+D2)  for  ^  <  1,56 

rad  . 

^  otherwise 

i  km 

(53) 

j(D1+D2)/cos  a  for  ip  <  1.56  rad-i 

0  otherwise  J 

km 

(54) 

f  (D,+D2)/cos  \p  for  iJj  <  1.56  rad  1 
r12  +  Hg  otherwise  J 

km 

(55) 
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Ar  =  4  H-j  H£/(rQ  +  r-,2)  km 

(56) 

6^  =  ot  -  6-j  rad 

(57) 

9er  =  ^  +  61  rad 

(58) 

0_  =  9-i  +  90  rad 

0  1  2 

(59) 

d  =  a  6^  km  . 
a  n 

(60) 

An  effective  earth  radius,  a  .  and  an  effective  aircraft  altitude, 

a 

H2»  that  varies  with  ip  are  used  in  these  expressions  since  the  values  of 
a  and  hg2  determined  in  section  A. 4.1  are  not  appropriate  for  large  ray 
take-off  angles  when  cos  ip  is  not  ~  1  [3,  eq.  3.23]. 

Effective  specular  reflection  coefficient  for  reflection  from  the 
earth,  exp(-j<J>g),  has  a  magnitude  and  a  phase  lay  of  -<^.  Allow¬ 
ances  are  included  for  the  effect  on  reflection  coefficient  of  (a)  reflec¬ 
ting  area  illumination  (antenna  gain),  (b)  surface  dielectric  constant  e 
and  conductivity  o  mho/m  from  table  2,  (c)  polarization,  (d)  surface 
roughness,  and  (e)  wavelength  Am  m  from  (10),  but  not  allowances  for 
divergence  [6,  sec.  11.2]  or  shadowing  by  the  counterpoise  (included 
later).  It  is  calculated  using  the  complex  plane  earth  reflection  coef¬ 
ficient  R  exp ( - j )  [6,  sec.  11.1]  arid  the  reflection  reduction  factor 
[32,  eqs.  3,  3.5,  3.6].  That  is 


and 


=  e  -  j  60Am  o 
c  m 

ip  =  grazing  angle  (fig.  17) 

Y  =  y/~e  -  cos2  i p 
c  c 


R  exp(-j4>) 


sin(ip)  -  Yc 
si  n  (ip)  +  Y, 


for  horizontal 
polarizat ion 


s i n (i/j) -Yc  for  vertical 
polarization 


cc  s'in(i|/)+Yc 


(61) 


(62) 


(63) 
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With  Ahm  as  the  terrain  parameter  (m)  from  table  3  and  d  as  the  great 
circle  path  distance  (km)  as  shown  in  figure  16, 


Ahd  =  Ahm[ 1 -0.8  exp(-0.02d)]  m 


(64) 


{ 


0.39  Ah^  for  Ah^  <  4  m 


0.78  Ah^  exp(-0.5  Ah^^)  otherwise 
Fah  =  exP("27Tah  sin(gj)/Am)  . 


and 


1 


m 


(65) 


(66) 


Further, 


r  cos  0  if  I 0  I <  83 
er  1  er1— 

0.12589  otherwise 

G 


-  I 


for  cosine  option  where 
J0er  is  from  (58) 


N/ 20 


10  with  from  fig.  2  for  DME  arid  TACAN  options 
1  for  isotropic  option 

[l+(2|0er-0t|/9Hp)2-5]"0-5  for  JTAC  option  where 
the  beam  tilt  above  horizontal  is  0t  and  the 
half-power  beamwidth  is  0Hp  degree,  both  in 
v  the  same  units  as  @er 


y  (67) 


J 


and 


Rg  e»P(-J>g)  =  F„h  9  R  “P^h.V1  • 


(68) 


Similarly,  the  effective  reflection  coefficient  for  the  counterpoise,  Rc 
exp(-j0c);  is  calculated  from 


Rc  exp ( - j 4>c )  =  g  R  exp(-j4>hjV)  (69) 

where  parameters  appropriate  for  the  counterpoise  are  used  to  determine 
R  exp  ( -  j  )  via  (63),  and  g  via  (67). 


Counterpoise  shadowing  of  earth  reflecting  surfaces  and  the  limited 
reflection  surface  available  to  support  reflection  from  the  counterpoise 
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are  accounted  for  by  using  knife-edge  diffraction  factors  in  the  process 
of  combining  direct  and  reflected  rays.  Geometry  associated  with  this 
diffraction  is  shown  in  figures  17  and  18  for  earth  and  counterpoise 
reflections,  respectively.  The  "v"  parameters  used  in  the  diffraction 
calculations  are  calculated  as  follows: 

hfc  =  height  (km)  of  facility  antenna  above  counterpoise 

dc  =  counterpoise  diameter  (km), 


ece  =  Tan-1 (2  hfc/dc)  rad 

(70) 

r  =  0.5  d  /cos  0  km 

c  c  ce 

(71) 

4>  =  grazing  angle  (fig.  17) 

°kg  =  1  6ce  "  eer  1  rad 

(72) 

where  0er  is  determined  from  (58) 

A  -  Am/1000  km  (73) 

where  is  from  (10) 
m  v  ' 


Yv 

1  7  2rc/X 

(74) 

V9 

=  ±2  Vv  s1n(ekg/2) 

( -  'for  0  <  0  \ 

{  er  ce  ) 

\+  otherwise  / 

(75) 

0kc 

3  l9ce  '  ehl  rai 

(76) 

where  9^  rad,  determined  from  (57)  for  reflection  from  the  earth,  is  used 
as  the  grazing  angle  \ p  for  counterpoise  reflection  and 

(-  for  9,  >  0  \ 

+  otherwise  "J  07) 

r 
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Earth 


Figure  17.  Geometry  for  determination  of  earth  reflection 
diffraction  parameter ,  v  ,  associated  with 
counterpoise  shadowing.  & 


Figui'e  18.  Geometry  for  determination  of  counterpoise  reflection 
diffraction  parameter }  v ^  associated  with  the  limited 
reflecting  surface  of  the  counterpoise. 
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A  subroutine,  FRENEL  (sec.  B.4.1),  written  for  the  Fresnel  integrals 

[40.  sec.  III. 3]  is  used  to  determine  the  loss,  f  (dimensionless 

9 

voltage  ratio),  and  phase  shift,  <f>  rad,  factors  from  vn  . 

Kg  * c  9  »c 

Ray  combining  is  performed  as  follows: 


=  path  length  difference  (km)  earth  or  counterpoise 
reflection  from  (56) 


d 


c 


A 


exp(-j<i>n  „)  =  complex  effective  reflection  coefficient 
9  >  c 

for  earth  or  counterpoise  reflection  from 
(68)  and  (69) 

and  c  are  the  knife-edge  loss  and  phase  shift  factors 
for  earth  or  counterpoise  reflection  that  are  discussed 
in  the  preceding  paragraph 
counterpoise  diameter  (km), 
wavelength  (km)  from  (73) 


ffR  if  dc  <  0  1  if  lobin 
I  If  Rn  otherwise  J  (sec.  3. 


Tg  =  < 


g  g 


-0  i f  Arg  >  x/6 

R„  if  d  <  0 
9  c 

f  R„  otherwise 

g  g 


ng  option 
1 )  used 


A 


} 


otherwise 


J 


0  if  d„  <  0 
c  — 


Tc 


f  R  otherwi 
c  c 


ise  1 


*Tg.c  =  {2lT  Arg,c/A)  +  *g,c  +  ♦kg.c  +  wS,c/Z  rad 


gn  =  value  of  g  for  direct  ray  from  (67)  with  6gr  set  to 


0h  from  (57), 


(78) 


(79) 

(80) 


56 


f 


WR0  *  lgD  °  RIg  exP(-J<#>Tg)  +  RTc  expC-j0Tc )  ( 2  +  0.0001  (81) 

and 

PR0  -  10  log(WR0/gg)  dB.*  (82) 


Diffraction  is  included  in  the  1 ine-of-sight  calculations  near  the 
radio  horizon  by  using  (a)  the  largest  within-the-horizon  distance,  dQ  km, 
from  (140),  at  which  diffraction  effects  are  considered  negligible 
(sec.  A. 4. 3);  (b)  the  value  of  -PRq  from  (82)  at  dQ,  AQ  dB;  (c)  the  maxi¬ 
mum  1 ine-of-sight  distance,  km;  and  (d)  the  attenuation  greater  than 
free  space  at  d^,  A^  dB  from  (137).  Hence  the  terrain  attenuation  factor 
Ay  is  calculated  for  the  1  ine-of-sight  region  (d  <  d^,  )  from 

\  ■  Wta  (83) 


and 


A 


T 


/-PR0  if  d  <  do 
1  MLCd  '  do)  -PROifdoid 


dB 


(84) 


A  block  diagram  for  the  procedure  used  for  Ay  calculations  in  the 
1 ine-of-sight  region  is  provided  in  figure  19. 

A. 4. 3  Diffraction  Region 

Calculations  based  on  diffraction  mechanisms  are  used  both  in  the 
1 ine-of-sight  (see  eq.  84)  and  diffraction  regions.  Diffraction  attenua¬ 
tion,  Aj,  is  assumed  to  vary  linearly  with  distance  in  the  diffraction 
region  when  other  parameters  (heights,  etc.)  are  fixed.  Most  of  the 
equations  given  in  this  section  are  related  to  the  determination  of  two3 
points  needed  to  define  this  diffraction  line.  Since  irregular  terrain 
may  be  involved,  rounded  earth  diffraction  is  combined  with  knife-edge 


*Decibels  greater  than  the  free-space  power  level. 
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I 

Starting  with  tp  (0  to  89°),  generate  tables  of  A r  from 
(56)  and  d  via  (60)  for  reflection  from  the  earth. 


Figure  19.  Block  diagram  of  procedure  used  in 
linq-of -sight.  calculations. 
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diffraction  considerations.  In  this  section  details  are  given  concern¬ 
ing  (a)  rounded  earth  diffraction  calculations,  (b)  knife-edge  calcula¬ 
tions,  (c)  the  determination  of  the  distance,  d  ,  in  the  1 ine-of-sight 
region  at  which  diffraction  effects  are  considered  negligible,  and  (d) 
the  calculation  of  Ay  for  beyond  the  horizon  paths  (d  >  dML ) . 

Rounded  earth  diffraction  is  treated  using  referenced  methods 
[32,  eq.  3.28,  etc.;  40,  sec.  8.2].  Rounded  earth  diffraction  attenua¬ 
tion,  Apr>  for  path  "p"  is  calculated  as  follows: 

dpLl  2  =  rac^'°  horizon  distance  (km)  for 
terminal  1  or  2  of  path  p 

h pe |  2  =  effective  height  (km)  for 
terminal  1  or  2  of  path  p 


dpL  "  dpLl  +  dpL2 


km 


(85) 


a  =  effective  earth  radius  from  (20) 

f  =  frequency  (MHz) 


d  ,  =  smooth  earth  horizon  distance 

pLs 


for  path  p 

• 

dpL  +  0.5(a2/f)1/3 1 
d^  =  larger  of  ^  or  r 

km 

(86) 

ldpLs 

d4  =  d3  +  (a2/f)l/3  km 

(87) 

al ,2  =  doLl ,2/'2  hpel  ,2)  km 

(88) 

0pe]  2  =  horizon  elevation  angle  (rad)  for 
terminal-  1 ,  or  2  of  path  p 
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epe  =  6 pel  +  0pe2  rad 

(39) 

°3,4  =  0pe  +  d3,4/a  rad 

(90) 

*3,4  =  *d3,4"dpl3/e3,4  rad 

(91) 

a  =  conductivity  (mho/m)  from  table  2 
x  =  18000  a/f 

e  =  dielectric  constant  from  table  2 
K.  =  0.36278f1/3  [(e-l)2+x2]-J/4 


1 ,2,3,4 


K,  a-1/3  for  horizontal  polarization 

a  12  3  4 
or 

K .  aT1-3,.  .  [£2+x2]1/2  for  vertical 
d  ]’2’3’4  polarization 


(92) 


(93) 


(94) 


,4  =  416.4f>/>  O.607-K,j2j3i4) 

(95) 

,2  =  Bl,2  al ,2  dpLl ,2  km 

(96) 

:  0.0134  x^  2  exp(-0.005  2) 

(97) 

^  2  =  40  log(x1  2)  '  H7  dB 

(98) 

‘3,4  a3^?  ^d3,4'dpL^  +  X1  +  X2 

(99) 

0.05751  x]>2>3>4  -  10  log  ^  >2,3,4 

(100) 
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When  0  <  2  <_  200 

*1,2  1f  1*1 .2 i  <  1,7  )  i 

-  117  otherwise  / 
or 

yl,2  lf  10’5  —  K1 ,2  <  1 


if  0  <  K]  2<  10-5 


and 


X1  2  —  ~  A50/[log  2^ 


or 


1,2 


=  < 


20  log(K1  2)  -  15  +  2.5(10)-5x|  2/K}  2 

otherwise 


When  200  <  x-  2  <  2000 
Wl,2  yl  ,2  +  ^9"W1 ,2^  G1 ,2 
When  x]  2  >  ^000 

G1 ,2 


>  dB  (101) 


=  G3>4  -  F]  -  F2  -  20  dB 

(102) 

=  (A4  -  A3)/(d4  -  d3)  dB/km 

(103) 

lpro  =  A4  "  Mpr  d4  dB 

(104) 

Apr  "  Apro  +  ^pr  dp 

005) 

‘ml  ,2  =  1000  hpe1 ,2  m 

(106) 

BN1  ,2  =  1 ,607  ’  K1 ,2 

(107) 

Then  Gp^  2  are  obtained  with  subroutine  GHBAR  [sec.  B.4.1]  by  using  value 

of  a-j  2»  f»  2*  2’  ^pLl  2*  2  GHBAR  [7?  eg.  64,  fig. 31; 

40,  eq.  7.6,  fig.  7.2]  Includes  a  weighting  function  [20,  eq.  17]. 
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Figure  20.  Paths  used  to  determine  diffraction  loss  (not  liraun  to 

scale).  Rounded  earth  diffraction  is  calculated  for  the 
hj(ei  to  hxe2  and  h eel  to  ^ee2  Paihs.  Knife-edge  dif¬ 
fraction  is  calculated  for  trie  hQj  to  h%e2  and  hej 
to  h0ej  paths. 

This  formulation  is  used  to  determine  rounded  earth  diffraction  lines, 
(105)  and  Gp^  ^  (discussed  under  knife-edge  diffraction  in  the  next  para¬ 
graph)  values  for  two  paths  illustrated  in  figure  20.  The  first  f'th  in¬ 
volves  diffraction  over  the  facility  horizon  obstacle  only  where  the  sub¬ 
script  p  is  replaced  by  K  so  that: 


(a)  dK1  =  dL1  km 

(108) 

with  dLl  from  figure  14  and 

dKL2  =  dML  "  dKLl  km 

009) 

where  Is  from  (40), 

(b)  hKel,2  =  hel,2  km 

(110) 
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where 

".1  “  hl  '  hrs  k"' 
(fly.  13)  and  hp?  Is  from  (34), 


(e) 


dKLs  =  dLs 1  +  dLs2 


km 


(HD 


(112) 


where  Is  from  (24)  and  ri^  is  from  (33),  and 


(d) 


°Kcl,2  =  °el,2 


rad 


(113) 


from  figure  14  and  (39).  The  second  path  involves  diffraction  over  smooth 
earth  from  the  facility  horizon  obstacle  to  the  aircraft  where  the  sub¬ 
script  p  is  replaced  by  e,  so  that: 


(a) 


heel  =  hLl  '  hrs  km 


(114) 


where  h^  km  is  from  figure  14,  h  is  the  reflection  surface  elevation 
above  msl  (fig.  13),  and 


hee2  ■  he2  km 


(115) 


from  ( 34 ) , 

(b) 


d„, ,  o  =  \f~2 a  h  ,  o  km 


eLl 


'eel  ,2 


(116) 


where  a  is  from  (20), 

(c) 


deLS  =  deLl  +  deL2  km 


(117) 


and 


(d) 


t)  ,  0  =  Tan-1 
eel  ,2 


( 


eel, 2  ueLl 


eLl, 2 


iLl  ,2  \ 

2a  ) 


rad 


(118) 


Knife-edge  diffraction  is  used  to  define  another  diffraction  line 
for  diffraction  by  an  isolated  obstacle  with  ground  reflections  [33, 
sec.  3.5;  34,  sec.  2.1;  40,  sec'.  7.2].  This  line  is  based  on  linear 
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interpolation  between  knife-edge  attenuation  values.  A,.,,  .  calculated  for 

two  knife-edge  diffraction  paths  illustrated  in  figure  20;  i.e.,  paths  from 
hei  to  h^^  and  from  hgl  to  hge2.  Parameters  discussed  in  the  previous  para¬ 
graph  are  used  in  these  calculations.  That  is,  0  and  G  0  are  deter- 

Kn I  j c  6h  I 

mined  as  per  discussion  following  (107)  where  calculations  are  based  on 
parameters  for  subscript  K  and  e  paths  (fig.  20).  Further: 

AKK  =  6  '  GKhl  "  GKh2  dB  t'19) 

9v  =  °e!  +  9ee2  +  <deU  +  dLl )/a  ra<i  (,20) 

where  0  ,  is  from  figure  14,  0gg2  is  from  (118),  dg^c  is  from  (117), 
djj  is  from  figure  14,  and  a  is  from  (20) 

vh  -  2.583  si,  (0V)  SWU  deLs/'(du  ♦  dtls)  (121) 

where  f  MHz  is  frequency  and  d^  is  from  figure  14. 

Subroutine  FRENEL  (sec.  B.4.1)  written  for  the  Fresnel  integrals 
[40,  sec.  III. 3]  is  used  to  determine  the  knife-edge  loss  factor,  f^ 
(dimensionless  voltage  ratio),  associated  with  v^.  Then 

\K  ■  Ah  -  Geh,  -  GKhl  -  20  >°9  fh  dB  (,22) 

where  A^  is  obtained  from  (105)  with  path  parameters  for  the  subscript 
e  path  (fig.  20)  and  dp  =  dg^s, 

Mk  -  (Ae|<  -  AKK)/(dL]  +  dgLs  -  dM(_)  dB/km  (123) 

where  d^  is  from  (40) 


AKo  =  AKK  '  MK  dML 


dB 


(124) 


and 
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"rV1  ako  dB 


(125) 


where  d  km  is  the  great  circle  path  distance. 

The  distance  dQ  km  in  the  1 ine-of-sight  region  at  which  diffraction 
is  considered  negligible  is  required  for  1 ine-of-sight  calculations  via 
(84).  It  is  determined  from  diffraction  considerations  as  follows: 

°h  =  Sin'1^2.853^  ^dMl/fdLl  dKL2  rad  (126) 

where  d^  is  from  (40),  f  Mhz  is  frequency,  dL1  is  from  figure  14,  and 
dKL2  1S  ^rom  ^0^) 


e5  =  0h  -  9el  rad  (127) 

where  0  ,  is  from  figure  14, 

dL5  =  "a05  +  ^  (a  tan  95)2  “  C(h1-hL1 )/(2a)]  km  (128) 

where  a  is  from  (20),  km  is  facility  antenna  elevation  above  msl,  and 
h|j  is  from  figure  14 


d5  "  dL5  *  dLl  km 

(129) 

h~  =  hQ  -  Ah  km 

sec  e 

(130) 

where  h9  is  aircraft  altitude  above  msl  and  Ah  is  from 
c  e 

(45) 

rad 

(131) 

06  =  °el  +  0e5  +  (d5/a>  rad 

(132) 

v5  =  2.583  sin(0g)  v/ fdjj  d^/dg  . 

(133) 
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Subroutine  FRENEL  (sec.  B.4.1),  written  for  Fresnel  Integrals 
[40,  sec.  III.3],  is  used  to  determine  the  knife-edge  loss  factor,  fg 
(dimensionless  voltage  ratio)  associated  with  Vg.  Then 

Ak5  =  20  log  f5  dB  (134) 


and 


c  1  wnen  dML  >  d<u 


w  = 


t 


0  when  d^  £  0.9  d^$ 


0.5  <  +  cos 


,,(dKLs-dML) 


L  0.1  d 


KLs 


otherwi se 


(135) 


where  d^.  s  is  from  (112),  rounded  earth  attenuations  ArML  and  are  ob 
tained  from  (105)  witn  parameters  for  the  subscript  e  path  (fig.  20),  and 
dp  set  to  dML  and  dQ,  respectively, 


(\5  if  W  >  0. 
A5  SAK5ifW<0- 


999 

001 


(1-W)  A i/r  +  W  A  c  otherwise 
'  K5  rs> 


dB 


(136) 


ML 


ArML  if  W  >  0.999 
if  W  <  0.001 

(1-W)  Ak|<  =  W  ArML  otherwise  J 
Mo  ■  (AML  -  A5i/(dML  -  do>  dB/kra 


dB 


(137) 


(138) 


and 


A  =  A -  M_  dMI  dB 
o  ML  o  ML 


d„  =  -  A  /Mo  km  . 
o  o  o 


(139) 

(140) 


This  procedure  involves  (a)  combining  knife-edge  diffraction  values 
<AK5.  Akk)  and  rounded  earth  diffraction  values  (Arg,  A^)  at  the  dis¬ 
tance  where  the  knife-edge  v  parameter  is  about  -0.5,  d  ,  and  the  maximum 
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Ilne-of-sight  distance,  d^ ,  (b)  using  these  points  to  define  a  linear 
diffraction  line  with  slope  MQ  and  intercept  AQ,  and  (c)  using  this  line 
to  define  the  distance  d0  at  which  the  attenuation  resulting  from  it  would 
be  zero.  It  is  very  similar  to  a  referenced  method  [20,  sec.  2.1]. 

Terrain  attenuation _ Ay  for  beyond-the-horizon  paths  (d  d^)  is 

determined  using  attenuations  for  diffraction  and  scatter.  Attenuation 
for  scatter,  A  ,  is  discussed  in  section  A. 4. 4  whereas  diffraction  attenua¬ 
tion,  Aj,  is  calculated  using  the  rounded  earth  and  knife-edge  diffraction 
formulations  previously  discussed  in  this  section.  That  is  rounded  earth 
attenuation  A  ^  is  obtained  from  (105)  with  parameters  for  the  subscript  K 
path  (fig.  20)  and  dp  set  to  +  dfiLs  where  djj  is  the  facility  horizon 
distance  and  do^s  is  obtained  from  (118). 


Ar|<  if  W  >  0.999 
Ab  >  <;  AKe  if  W  <  0.001 


dB 


(1-W)  AKe  +  W  A^K  otherwise 


(141) 


whe^e  W  and  A^  are  obtained  from  (135)  and  (122), 


Md  -  (A„L-A6>/<dML-dLrdeLs)  <Wkn, 


(142) 


where  A^  is  obtained  from  (137), 


Ado  =  AML  -  Kd  dML  dB 


(143) 


and 


A 


Md  d 


+  A 


do 


dB 


(144) 


where  d  km  is  the  great  circle  path  distance.  The  distance,  dv  km,  is  the 
shortest  distance  just  beyond  the  radio  horizon  at  which  scatter  attenua¬ 
tion,  As,  is  _>  20  dB  and  the  slope  of  the  A$  versus  d  curve,  M  ,  is 
£  where  Ms  is  determined  using  successive  A$  calculations  (sec.  A. 4. 4) 
for  distances  greater  than  d^.  Then 
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^Ad  if  Asx±fldx 


for 

.  /A,  -Aml  X 

K  (d'dx>  ott,e™ise 


>-dB  (1*0 


/ 


lesser  of  A^  or  Ag  if  Ay  ^  A^ 
for  all  shorter  distances  pre¬ 
viously  considered 

A  otherwise 


L  for  d  <d 


J 


where  A,  and  A  are  values  of  A,  and  A  that  correspond  to  d  =  d  . 

Q  A  ja  (J  j  X 

For  within-the-horizon  paths,  d  <  d^,  Ay  is  determined  using  (84). 


A. 4. 4  Scatter  Region 

For  beyond-the-horizon  paths,  the  terrain  attenuation  is  equal 
to  that  associated  with  forward  scatter,  Ay=As  dB,  when  contributions  from 
diffraction,  A^,  are  neglected.  Use  of  A$  and  A^  to  obtain  Ay  was  dis¬ 
cussed  in  the  previous  section  (145)  so  that  this  section  is  only  concerned 
with  the  calculation  of  A  .  Portions  of  the  programs  that  deal  with  scatter 
are  nearly  identical  with  Johnson's  earlier  scatter  program  [27,  sec.  7], 
which  is  based  on  the  model  described  by  Rice  et  al .  [40,  secs.  9,  III. 5], 
but  includes  certain  CCIR  information  [7,  sec.  11].  Readers  interested 
in  details  concerning  the  scatter  model  should  refer  to  these  documents. 
However,  As  calculations  may  be  summarized  as  follows: 

d  =  great  circle  path  distance  (km) 
a  =  effective  earth  radius  from  (20) 

9  .  =  facility  horizon  elevation  angle  (rad)  via  figure  14 
el 

0  „  =  aircraft  horizon  elevation  angle  (rad)  from  (39) 
e2 

h1  =  elevation  of  facility  antenna  (km)  above  msl 

h  o  =  effective  altitude 'of  aircraft  (nm)  above  msl 

esz 
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[ 


hes2  =  h2  "  Ahe 


km 


(146) 


where  is  the  aircraft  altitude  above  mean  sea  level  and  Ahg  is  obtained 
from  (45)  , 


.  d  ,  1  es2 

'  2a  +  6el  +  d 

rad 

(147) 

.  d  ,  0  hl"hes2 

2a  +  8e2  "  d 

rad 

(148) 

i  =  a  +8  rad 

00  00  00 

(149) 

dL1  =  facility  horizon  distance  (km)  via  figure  14 


dL2  =  aircraft  horizon  distance  (km)  from  (38) 


ul  ,2  1 


0  for  smooth  earth 


LI  2 

6  ,  o  +  ~ -  otherwise 
el  ,2  a 


rad 


(150) 


v  _  d  ®oo  j 

si  "  XT  "  LI 
00 


km 


(151) 


d  a 


oo 


s2  6 


-  d 


oo 


L2 


Jsl  ,2 


I 


Ysl  ,2  lf  0ol,2  -  0 


Jsl, 2 


3ol  ,2 


otherwise 


km 


0  52) 


(153) 


Values  for  AaQ  and  ABQ  [7,  fig.  18]  are  obtained  with  subroutine 
DELTA  (sec.  B.4.1)  by  using  values  of  6^  2  and  from  (18).  Then 


a  -  a  +  Aa  rad 

0  00  0 


(154) 
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*o  *  eoo  +  rid 

(155) 

6  =  “o  +  e0  rad 

(156) 

SI  *  Veo 

057) 

s=fS'1,S'-'  1 

1/Sj  otherwise  ' 

058) 

°s  ■  d  "  dLl  "  dL2  km 

059) 

hv  ■  °s  5  9/0  +  s)2  km 

(160) 

ho  =  ds  90  *  s)2  km 

(161) 

=  °-031  -  <2-32  V10')  +  (5.67  N|/10‘) 

(162) 

-  0.5696  hQ[l  t  n]  exp[-3.8  ( 

(163) 

'■°86  <Vho>  <l'o-\-\rhL2>  dB 

K  ~  wavelength  (km)  from  (73) 

064) 

Va  =  4?r  h]  %/A 

065) 

V0  =  471  hes2  VA 

(166) 

^  %  otherwise  J 

(167) 

f 


rVf  SI  <  1  ) 

v,  ={  \  .  (168) 

[v  otherwise  > 

a 

A  value  for  HQ  is  obtained  with  subroutine  HCHNOT  (sec.  B.4.1)  by 
using  values  of  s-,  ns>  and  v-j  ^  where  HCHNOT  is  based  on  a  referenced 

[7,  sec.  11.4].  Subroutine  FDTETA  (sec.  B.4.1)  is  used  to  obtain  FdQ  from 
values  for  d,  0,  N$,  and  s  where  FDTETA  is  based  on  a  referenced  method 
[7,  sec.  11.1].  Then 

As  =  10  log  f  -  40  log  d  +  FdQ  +  HQ  -  Fq  -  32.45  dB  (169) 
where  f  MHz  is  frequency. 


A. 4. 5  Atmospneric  Absorption 

The  formulation  used  to  estimate  median  values  for  atmospheric 
absorption  is  similar  to  a  described  method  [18,  sec.  A. 3].  Allowances 
are  made  for  absorption  due  to  oxygen  and  water  vapor  by  using  surface 
absorption  rates  and  effective  ray  lengths  where  these  ray  lengths  are 
lengths  contained  within  atmospheric  layers  with  appropriate  effective 
thicknesses.  The  geometry  associated  with  this  formulation  is  shown  in 
figure  21  along  with  key  equations  relating  geometric  parameters. 

For  1  ine-of-sight  paths,  (d  _<  d^)  where  d^  is  from  (40),  the 
figure  21  expressions  are  used  to  calculate  effective  ray  lengths  rgo  w 
where  H^  =  h^  from  (111),  H^  =  H£  from  (47),  for  earth,  a^  =  ag  from 
(44),  and  3  =  0^  from  (57). 

For  single  horizon  paths  (d^  <  d  _<  djj  +  dg^  )  where  d^  is  from 
figure  14  and  deLl  15  from  (116),  the  figure  21  expressions  are  used  with 
two  sets  of  starting  parameters  and  the  r  ,  obtained  with  these  are 

GO  jW  b 

called  r,  „  ,  and  r-  „  ...  In  the  first  calculations,  H  ,  -  h  ,, 
leo,w  2eo,w  yl  el 
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i 


Parameter  values  for  H  ,  km,  H  _  km,  and  a  km  and  r  are  defined  in 
yi  1 2  Y 


the  text  for  1 ine-of-sight ,  single  horizon,  and  two  horizon  paths. 


Hq  51 n  At 

'  0  i f  Ht  <  Hc  or  At  <  \ 

1  2  Ht  sin  [cos _ * (Hc/Ht ) ]  otherwise 


km 


Figure  21.  Geometry  associated  with  atmospheric  absorption  oaloula 
tions.  Values  of  T  for  oxygen  and  water  vapor  are 
taken  as  3.25  and  e0,W  1.36  km  [13,  table  A. 2], 
respectively  (not  drawn  to  scale). 
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Hy2  =  hge1  from  (114),  =  a  from  (20),  and  3  =  0e-j  from  figure  14.  For 

the  second  set  H-j  =  H^ ,  H  g  =  h02  from  (34),  a^  =  a,  and  3  =  -  0g2  - 


(d  -  d. ,)/a  where  6  „  is  from  (36).  Values  for  r  are  then  obtaii 

L I  Gc  GO  *W 


using 


r1eo,w  +  r2eo,w  km  * 


(170) 


For  two  horizon  paths  (d^  +  dg|j  <  d),  the  figure  21  expressions  are 

also  used  with  two  sets  of  input  parameters ,  and  the  results  obtained  are 

called  r.  „  ,,  and  r  ,,,  where  (170)  is  used  to  determine  r  ,,  values. 
leo,w  2eo,w  '  '  eo,w 

Height  of  the  scattering  volume  above  the  effective  reflection  surface,  Hy , 
is  used  as  an  input  parameter  and  it  is  calculated  using  km  at  dis¬ 
tance  dg1  km  from  (153),  0^  rad  from  (150),  and  a  km;  i.e., 


Hy  =  h  +  d  tan  0  ,  +  dg|/ (2a )  km 
ee2  si  ' 


(171) 


In  the  first  set  of  calculations,  =  hgl ,  H  2  =  Hy,  a^  =  a,  and  3  =  Bg-j . 
For  the  second  set,  H^  =  lesser  of  (Hy  or  He2>,  H  2  =  greater  of  (Hy  or 
Hg2) *  aY  =  a»  and  3  =  greater  of  { -oe2  or  -  0g2  -  (d-dL1 -dgl )/a f  . 

Surface  absorption  rates  for  oxygen  and  water  vapor,  yqo  w  dB/km  are 
used  with  effective  ray  lengths,  rfiQ  w  km,  to  obtain  an  estimate  for  atmos¬ 
pheric  absorption,  Aa  dB;  i.e., 

C. 


A  =  v  r  +  y  y* 
a  'oo  eo  'ow  ew 


(172) 


Values  for  yQ0  may  be  provided  as  input  (sec.  3.1.1).  When  values  are 
not  provided  as  input,  estimates  are  made  within  subroutine  ASORP  (sec. 
B.4.1)  by  interpolating  between  values  taken  from  referenced  curves 
[40,  fig.  3.1]. 

A. 5  Long-Term  Power  Fading 


The  formulation  used  for  the  variability  associated  with  long-term 
(hourly  median)  power  fading  that  is  required  for  (5)  is  designated  Y^(q) 
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dB  where  q  is  the  time  availability  parameter  of  section  A.l  and  the  sign 
associated  with  Yg(q)  values  is  such  that  the  positive  values  associated 
with  q  <_  0.5  will  decrease  transmission  loss  or  increase  received  power 
levels.  It  is  (a)  based  on  a  recommended  model  [22,  sec.  3.1]  that  was 
tested  against  air/ground  data  [21,  sec.  4.3],  (b)  almost  identical  with 
a  previous  model  [20,  sec.  2.2],  and  (c)  a  modified  version  of  a  power 
fading  model  [40,  secs.  10,  III. 6,  III. 7].  These  modifications  consist 
of:  (a)  the  conditional  use  of  ray  tracing  to  determine  effective  dis¬ 
tance,  dg;  (b)  replacing  0^  in  their  elevation  angle  correction  function 
[40,  fig.  1 1 1. 24]  by  8  9^,  where  8^  is  the  elevation  angle  of  the  facility- 
to-aircraft  direct  ray  from  (57);  and  (c)  conditional  limiting  of  Ye(q) 
values  <:  q  -  0.1.  The  8  0^  modification  in  (b)  comes  from  a  comparison 
[20,  fig.  2]  with  satellite  data  [35,  fig.  8].  In  the  calculation  of 
Yg(q),  ray  tracing  from  the  earth  surface  to  the  aircraft  is  used  to 
determine  the  smooth  earth  horizon  distance  d^  when  Ahg  is  not^  speci¬ 
fied  as  an  input  parameter  (sec.  3.1.1)  where  the  surface  refractivity 
used  in  the  ray  tracing  (sec.  A. 4.1)  is  determined  via  (20)  for  a 
9000-km  effective  earth  radius.  Then 


dLoi  "  /18000  hgl  km 


(173) 


where  h^  is  from  (ill) 


dioR  if  Ahg  not  specified 


lo2 


km 


(174) 


v/"l8000  li«  otherwise 

a  C 


where  h^  km  is  the  actual  aircraft  altitude  above  the  reflecting  surface 


dds  =  65(1 00/f) x/ 3  km 


(175) 


where  f  MHz  is  frequency 


dM  =  dL0l  4  dLo2  4  dds  km 


(176) 
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1 30d/d|^  for  d  < 


130  +  d  -  dM  otherwise 


(177) 


where  d  krn  is  great  circle  path  distance  and 


V (0 . 5 ) 
Y(0.1) 
-Y(0. 9) 


Cldeni  "  f2  exP(_C3  de  )  +  f2  dB 


(178) 


where  f0  *  f  +  (f  -  f  )  exp(-C0d"2)  and  the  values  used  for  the 
parameters  C-j ,  C^,  C^,  n-j ,  n,,,  n^,  f  ,  and  depend  on  whether  V(0.5)  [40, 
table  III. 5,  climate  1],  Y(O.l)  [40,  table  III. 3,  all  hours  all  year],  or 
Y(0.9)  [40,  table  III. 4,  all  hours  all  year]  is  being  calculated.  Then 


Tan"1  [20  log(32  oh)] 

(179) 

feh  V(0.1)  dB 

(180) 

f0h  y(0-9)  “B 

(181 

-  20  log(gD  +  RJg  +  PTc)]  dB 

(182) 

where  Lh(0.5)  is  from  (14),  Lhf  is  from  (15),  and  gQ,  R^,  and  P.Tr,  have 


the  same  values  as  they  would  in  (81). 


Yg (0.0001 ' 


lesser  of 


3.33  Y  (0.1) 
or  e 


for  lobing 


[3.33  Y  (0.1)  1 

lesser  of  <  or  ^otherwise 

Wr  +  V(Lbf"6^ 


(183) 
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where  the  lobing  option  is  discussed  in  sec.  3.1.1,  Lbr  is  from  (17)  and 
Ay  is  from  (15), 


Ve(0.001) 


lesser  of  ■(  or 
lYT 


2.73  Y  (0.1) 


|  for  lobing 


r  2.73  Y  (0.1)  . 

lesser  of  v  or  l otherwise 

lL,  (0.5)-(L.f-5,8)J 


dB  (184) 


Yg (0.01 ) 


f  1.95  Y  (0.1) 
lesser  of  <  or 


(1.95  Y  (0.1) 
lesser  of  <  or 

lLbr+Ay-<Lbf-5) 


for  lobing 


otherwi se 


dB  (185) 


Yb  =  Lb(0.5)  -  (Lbf  +  80)  dB 


(186) 


Ye(0.99) 


(1.82  Y  (0.9) 
greater  of  J  or 

K 


.82  Ye (0 . 9 )  otherwise 


for  lobing 


dB  (187) 


Ye(0.999) 


(  2.41  Y  (0.9) 
greater  of  <  or 

lyB 


2.41  Y  (0.9)  otherwise 
e 


Y  (0. 9999) 

G 


2.90  Y  (0. 9) 


greater  of  >  or 


2.90  Yfi(0.9)  otherwise 


for  lobing 


dB  (188) 


for  lobing 


dB  . (189) 
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II'**  median  adjustment  factor  Ve(0.5,  dg)  required  for  (17)  Is 
obtained  us Iny  the  results  of  (178  and  179),  i.e., 

Ve(0.5.  de)  «  foh  V(0.5)  dB  .  (190) 


A. 6  Surface  Reflection  Multipath 


Multipath  associated  with  reflections  from  the  earth's  surface  is  con¬ 
sidered  as  part  of  the  short-term  (wlthin-the-hour)  variability  for  line-of- 
stght  paths,  ami  is  used  only  when  the  time  availability  option  for 
"Instantaneous  levels  excet  ,d"  is  selected  (table  1).  Contributions  asso¬ 
ciated  with  both  specular  and  diffuse  reflection  components  may  be  included 
though  the  s|  ocular  component  is  not  allowed  to  make  a  full  contribution 
when  it  is  a'so  used  in  determining  the  median  levels  (e.y.,  when  lobing 
option  is  selected,  table  1).  These  contributions  are  incorporated  into 
the  variability  part  of  the  model  via  the  relative  power  level,  W^,  in 
(til,  formulas  used  to  calculate  W,,  may  be  summarized  as  follows: 


l^y  reflection  reduction  factor  [42,  eq.  21  modified] 
n'  associated  with  the  conditional  adjustment  factor  Av 
from  (161 


AY 


0. 


i  f  Ay  <  0 
t  Ay  >  6 


0. 5(1.1  +  0.9  cos("Ay/6)J  otherwise 


t  reflection  reduction  factor  [42,  eq.  22]  associated 

with  path  length  difference,  Ar  km,  from  (56)  wave¬ 
length,  1  km,  from  (7J) 


(191) 


F, 

Ar 


0  for  lobing  (table  1 ) 

1  for  \r  >  >/?. 

0.1  for  Ar  <  Ar  ■’  '/6 

1 . 1 -0.9  cos  L 31  ( ■ r- ■ r  ) 

_ 

2 


\]  otherwise 


otherwise 


1 


j 


(192) 
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(1«3) 


Rs  '  %  fAY  FAr 


where  R2  is  the  specular  contribution  to  relative  multipath  power,  and 
R.^  is  from  (78).  F^is  reflection  reduction  factor  associated 
with  diffuse  reflection  that  is  based  on  curves  fit  to  data  [5,  fig.  4] 
and  expressed  in  terms  of  F  ^  from  (66) 


doh 


r 


0.01  +  9.46  if  Foh  <  0.00325 

6.15  F  h  if  0.00325  <  Fah  <  0.0739 

0.45  +  v/' 0~ 000893- (F  .-0.1026)2  if  0.0739<Frth<0.1237 


ah 

0.601  -  1 .06  Foh  if  0.1237  <  Fah  <  0.3 
0.01  +  0.875  exp(-3.88  FQh)  otherwise 


Rd  ’  RTg  Fdah/Fah 


r  0  94) 


j 


095) 


where  R^  is  the  diffuse  contribution  to  relative  multipath  power  and 


r 


Rs  +  Rd  For  1 ^ ne-of-s i ght  (d^d^) 


> 


0  otherwise 


(196) 


where  d^  is  from  (40)  and  d  is  path  distance. 

The  Rp  in  (193)  is  an  effective  reflection  coefficient  for  reflec¬ 
tion  from  the  earth.  It  is  calculated  using  (78)  and  (63),  and  includes 
allowances  for:  (a)  surface  constants  and  frequency  via  the  plane  earth 
reflection  coefficient,  R,  of  (63);  (b)  antenna  illumination  of  the  reflec¬ 
ting  area  via  the  relative  antpnna  gain,  q,  of  (67),  (c)  shadowing  of  the 
reflecting  area  by  the  counterpoise  with  f  of  (78),  and  (d)  surface 
roughness  via  F  ^  of  (66).  This  formulation  for  F;^  [32,  eq.  3.5]  has 
been  previously  used  [20,  p.  I?;  42,  eq.  18].  Although  it  differs  from 
some  formulations  [6,  p.  246]  and  [40,  eq.  5.1],  it  does  agree  well  with 
data  [6,  p.  318;  and  Montgomery,  1969,  "A  note  on  selected  definitions  of 
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effective  antenna  heights",  ESSA  Tech.  Memo.  ERLTM-ITS  158,  pp.  7-9; 
limited  distribution,  contact  author  at  ITS  for  more  information]. 

A. 7  Tropospheric  Multipath 

Tropospheric  multipath  is  caused  by  reflections  from  atmospheric 

sheets  or  elevated  layers,  or  additional  direct  (nonreflected)  wave  paths 

[2;  9,  sec.  3.1]  and  may  be  present  when  antenna  directivity  is  sufficient 

to  make  surface  reflections  negligible.  It  is  considered  as  part  of  the 

short-term  (wi thin-the-hour)  variability  for  line-of-sight  path,  is  used 

only  when  the  time  availability  option  for  "instantaneous  levels 

exceeded"  is  selected  (table  1),  and  is  incorporated  into  the  variability 

part  of  the  model  via  the  relative  power  level,  W  ,  in  (6). 

d 

The  formulation  for  within  the  line-of-sight  region  [d^<  d  where 
dML  is  the  maximum  line-of-sight  distance  from  (40)  and  d  is  the  great 
circle  path  distance]  involves:  frequency,  f  MHz;  effective  water  vapor 
ray  length,  rgw,  from  figure  21; 

10  log  (f  r3  )  -  84.26  if  d  <  dM1 
and  is  not  calculated  otherwise 

{obtained  via  (201)  if  d  >  d^ 

40  dB  if  F  <  0.14 
-20  dB  if  F  >  18.4 

or  is  obtained  from  curves  [40,  fig.  V.l] 

and  -K./10 

Wa  =  10  1  .  (199) 

The  expression  for  fade  margin,  F,  given  in  (197)  is  identical  with 
the  one  u^ed  in  [20,  eq.  42],  and  was  derived  from  the  outage  time  formu¬ 
lation  provided  in  [31,  pp.  60,  B-2,  119]  by:  replacing  the  path  dis¬ 
tance  with  r  ;  expressing  frequency  in  megahertz;  setting  both  "climate" 

GW 


j>dB  (198) 


j  dB  (197) 
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and  "terrain"  factors  to  0.25;  setting  the  "actual  fade  probability"  to 
0.01  (100-0.99);  and  solving  the  resulting  equation  for  F.  Values  for 
F  are  used  in  (198)  by  selecting  the  K.  that  corresponds  to  Y  (0.99) 

-  -F  in  [40,  fig.  V.l].  This  operation  is  performed  in  the  programs  by 
a  function  called  FDASP  (sec.  B.4.1)  which  interpolates  between  pre¬ 
determined  values  [40,  fig.  V.l]. 

For  beyond -the-horizon  paths  (d^  <  d),  values  for  may  be  deter¬ 
mined  from  Kt  values  with  (201),  where  is  calculated  using  (a)  the 
scattering  angle  0  rad  from  (156),  and  (b)  the  value  of  K  obtained 
from  (6)  at  d  =  d^  with  WR  from  (196)  and  from  (199);  i.e., 


and 


MKa  =  (-20-^L)/0. 02618  dB/rad 


(200) 


{obtained  via  (198)  if  d  <  dj.. 
-20  if  0  >  0.02618  rad 
SlL  +  MKa  G  otherwise 


dB  .  (201) 


However,  the  calculation  of  for  such  paths  can  be  bypassed  since 
the  K  of  (6)  is  equal  to  the  «t  of  (201)  because  WR  in  (6)  from  (196)  is 
zero.  Data  [26]  was  used  to  determine  the  values  of  0  at  which  short¬ 
term  fading  for  beyond-the-horizon  paths  can  be  characterized  as  Rayleigh 
fading  (K  <  -20  dB),  and  (201)  includes  a  linear  interpolation  between 
the  horizon  (c  =  0,  Kt  =  K^)  and  Rayleigh  fading  (0  =  0.02618  rad, 

-  -20  dB)  points. 
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APPENDIX  B.  PROGRAM  LISTINGS 


Program  listings  are  given  in  this  appendix  for  the  power  density 
(POWAV,  sec.  B.l),  station  separation  (DOVERU,  sec.  B.2),  and  service 
volume  (SRVVOLM,  sec.  B.3)  programs.  Most  subprograms  (functions  and 
subroutines)  are  common  to  all  three  programs  and  are  listed  in  section 
B.4.  All  listings  are  in  FORTRAN  and  have  some  annotation  to  assist 
readers . 

Data  tables,  which  are  read  into  the  computer  prior  to  any  system 
configuration  data,  are  listed  in  section  B.4.2.  Initial  (first  5)  READ 
statements  of  all  three  programs  concern  these  tables.  Remaining  READ 
statements  concern  model  parameter  data  where  the  cards  used  to  provide 
such  data  for  each  program  are  indicated  in  figure  22  (POWAV),  figure  23 
(DOVERU),  and  figure  24  (SRVVOLM).  FORTRAN  variable  names  used  in  the 
programs  and  in  these  figures  are  described  in  table  7.  Additional  in¬ 
formation  concerning  most  of  these  parameters  is  given  in  section  3.1.1. 
Format  requirements  are  given  in  the  program  listings. 

B.l  POWER  DENSITY  PROGRAM 

Input  parameters  for  the  power  density  program  (POWAV)  and  the 
output  generated  by  it  are  discussed  in  sections  3.1.1  and  3.2.1, 
respectively.  Information  concerning  input  parameter  cards  and  FORTRAN 
variables  is  given  in  figure  22  and  described  further  in  table  7.  Sub¬ 
programs  (sec.  B.4.1)  and  data  tables  (sec.  B.4.2)  required  by  POWAV  are 
ALOS,  ASORP,  CONLUT,  DEFRAC,  DELTA,  FDASP,  FDTETA,  FRENEL,  GAIN,  GHBAR, 
HCHNOT,  LINE,  PAGE,  PLTGRPH,  RADEMS,  RAYTRAC,  RECC,  RTATAN,  SCATTER, 

SORB,  TABLE,  TERP,  TRMESH,  TSMESH,  VZD,  and  YIKK.  A  block  diagram  of  the 
operations  performed  by  POWAV  is  given  in  figure  25.  Text  references  and 
major  subprograms  that  are  relevant  to  specific  blocks  are  included  there. 
A  listing  of  POWAV  is  provided  at  the  end  of  this  section. 
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Fortran  Input  Parameter  Card 

Variables  Type  Number  For  Description 

POWAV  DOVERu  SRVVOLM 


/ 

i 


< 
C  3 
•—  O 


OJ  U  VI  W  *-> 

I  'i-  1)  -C  ^  2 

<  4  j  d)  Q-  &i  z 
t—  4-  i_  V>  VI 

^  menu  c  rs 
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122  Code  for  terrain  type  options:  (1)  smooth  earth,  (?)  irregular  terrain. 

EIRP  1  2  2  Equivalent  isotropically  radiated  power  (dBW) 

I L B  12  2  Code  for  lobing  options:  (0)  No  lobing,  (2)  lobing. 

ADEN!  23  3  First  16  characters  of  spaces  of  label  for  graph  and  parameter  sheet. 
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Number  of  desi red- to -undesi red  signal  ratios  (1  to  30). 

Abscissa  value  for  right-hand  limit  of  service  volume  graph  (n  mi). 


able  7.  F^ftTRA’.  input  variables  for  parameter  cards  (Cor,t'‘. 
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Initialize  by  reading  in  TABLES  (sec.  B.4.2)  and  setting  up  constants 


•  Start  of  loop  for  each  new  set 
of  parameters  and  profiles. 


Read  input  parameters  (table  7,  'ig.  22)  and  convert  all  distance  and 
heights  to  kilometers,  and  all  angles  to  radian. 


Compute  other  necessary  parameters  not  given  such  as  facility  horizon 
parameters  (fig.  l'l),  and  print  parameter  sheet  (fig.  5). 


Call  DEFRAC  (sec.  B.4.1)  to  obtain  diffraction  lines  (sec.  A. 4. 3). 


Call  ALOS  (sec.  B.4.1)  to  obtain  values  for  plotting  in  the  line-of-sight 
region  (sec.  A. 4. 2). 


Beginning  of  loop  for  beyond-hori zon 
distance  points. 


Call  SCATTER  (sec.  B.4.1)  to  calculate  forward  scatter  attenuation 
(sec.  A. 4. 4).  Compare  this  with  defraction  attenuation,  and  select 
the  appropriate  value  via  (144). 


If  the  "instantaneous"  time  availability  option  is  used  (table  1),  long¬ 
term  variability  obtained  using  '.L D  (sec.  B.4.1)  Is  combined  with  short¬ 
term  variability  from  V I KK  (sec.  B.4.1)  by  using  CONLUT  (sec.  B.4.1).  Otherwise 
long-term  variability  is  obtained. 


Attenuation  values,  including  atmospheric  absorption  (sec.  A, 4. 5)  arc  combined 
with  variability,  values  of  power  density  obtained  via  (7)  and  stored  for 
plotting. 


End  of  loop  for  beyond-the-horizon  distance  values. 


Call  RLTGRPH  (sec.  B.4.1)  to  set  up  graph  and  plot  points. 
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PROGRAM  POWAV 


C  ROUTINE  FOR  MODEL  AUG  73 

2  FORMAT  I »  PROGRAM  IS  FINISHED.  *» 

4  FORMAT ( INI > 

5  FORMAT  I 1H  » 

6  FORMAT (20X.»INPUT»,21X.*WORKING  VALUE* • 

7  FORMAT (  I2»F6.0»212»3F6.0»I2*2F6.0* 12 .2F6.0 .3  I  3 .3 12 .F6.Q* 11) 

8  FORMAT <2A8.2F6.0.F4.0.3F6.0«2I2F5.0.F4.0>.!2> 

32  FORMAT ( 3X.F5. 1  ) 

SO  FORMAT (F 7.0.  IX  ) 

71  FORMAT (F5.0.14F6.1 ) 

106  FORMAT I^Xt*  DML  IS  LESS  THAN  2ER0.  ABORTING  RUN  *) 

108  FORMAT  (,- ’(  FS.3.7FS.?  )  ) 

110  FORMAT  I o Afl I 

505  FORMAT  MI  F7.4  ) 

C  FORMAT  STATEMENTS  FOR  PARAMETER  SHEET  AND  WORK.  SHEET 

700  FORMaT(23X.»PAKAMFTfRS  FOR  ITS  PROPAGATION  MODEL  * . Afl . / 32X . A8 . 2X . A 
X8.»  RON*.//) 

701  FORMAT  i  32X  REQUIRED  OR  F  I  XED*  .  /  32  X  .  * - *./l5x.*AIR 

1CRAFT  ALTITUDE:  ».F8.0.*  FT  ABOVE  M  S  L  *  I 

702  FORMAT! 15X.*f'Ao  ILITV  ANTENNA  HE  I GHT :*.F7.1.»  FT  ABOVE  SITE  SuRTACE 
X*  ) 

703  FC  M  A  T  I  1  *  X  »  •  FREfJUENf  T  •’  *.F6.0.»  Mu/»l 

704  FORMAT  I  2RX  .*S  ECirjfATION  OPT  IONAL*  ./29X  .» - - ». 

4/ 15X  .*ABSORP  f  ION  :  OX  YC,F  N»  .  F’K  S  ,  *  f>(3  /  KM»  ,  A2  . /2  7X  .  »  WA  TER  VAPOR*.F9.5 

4,»DR/XM.  ,A7 I 

7p6  FORM*  f  <  1 5  X . • E  E  F  F  0  T 1 VE  ALTITUDE  f UR RFC T I  ON  FACTOR:  *.F6.0.*  FT*.A2 
5  . /I  Sx  .«FFE  EC  I  I  Vf  -rn  |  MhA  SUED  ace  fLFVATION  ABOVE  MSL:*»f7,0.*  F 
5T*./15a.*E Vu I  v  A  l  t  N  T  ISi.TkuPJCALLY  RADIATED  POWER:  «.F6.1.»  DBW*./1 
55X.* FACILITY  ANUNNA  Tyt''  *  i  S  A  8  ) 

7p6  FORMAT  (  20  X  .  *  Cuu".  T  CrPu  I  SI  D  I  AMf  T  (.  R  •  •  ,  F  S  .0  .  *  F  T  *  .  /  2  5  X  ,  *HE  I  GHT  :  *  .  f  5 . 0 
6.«  FT  ABOVE  SITE  SUREACf  » , / 2 5 X  .  « S'  IRE ACF  * . 2 A8  ) 

707  FORMAT  I ?0X ,»P0!  ARIA  AT  ION  ».?Ap) 

708  EORMAM  15X,*HURI/  N  CBSTAc'lF  DISTANCE  ■  *«E7.2»*  N  MI  FROM  FACILITY* 
8»A?./20X.*ELE:vAT  ION  ANGlI  •  .  I  3  .*  /  »  ,  I  2  .*/*  .  I  2  .*  Dtc./MIN/SEC  ABOVE 
8  HOR I20NTAL*  »A2  ,/2<)X  .*HI  lOHT  *.F6.0.»  FT  ABOVE  MSL*.A2> 

709  F  OHM A  I  I  1 S  X . *  M I N I M;  ,M  MONTHLY  MEAN  SURFACE  RF FR AC T  I V  I  T Y •  » . / 20X , F 3 .0  • 

9*  N-UNITS  AT  SEA  L  E  VFl  :  ».F3.0,«  N-UM!'*I 

710  FORMAT  I  15X»*TlHKA|N  ELEVATION  AT  S I T F :  • » E6 . 0 .  »  FT  ABOVE  MSL*./20X. 

A»PAHAMFTFR  *.E5.0,»  F T * . /? IX .* T YPf •  *.?A8) 

71  l  FORMAT  (  2SX.  ‘PLOT  L  I M  I  T  S*  .  /  2  5X  .  * - - •  .  /  1  5X  .«  AVA  I  LABl-E  POWER' 

B*.FS,0.».  *.F6,0.»  0BW*./17X.*D1  STANCE  '*.fr> •').»•  *«rs.O«*  N  MI*) 

7] 2  FORMAT  I 2<:X*ANTFNNA  HEIGHT  TOO  HIGH.  IONOSPHERIC  E r F E C T S* . / 2 5 X . • M A Y 
2  OF  [  wpnw  !  AN  T  •  I 

713  FORMAT (20X. "AIRCRAFT  TOO  LOW.  TERRAIN  BEYOND  FACILITY  »»/25X.*HORI 
320N  MAY  RF  IMPORTANT*! 

714  FORMAT (20X.* IN  ADDITION.  SURFACF  WAVF  CONTRIBUTIONS  SHOULD*. /15X,» 
4BF  CONSIDERED*! 

715  FORMAT  1 20X.«ANTENNA  TOO  HIGH.  RAY  BENDING  OVERESTIMATED*./) 

716  FORMAT (20X.*ANTENNNA  TOO  LOW.  SURFACE  WAVE  SHOULD  BE* . /25X .*CONS ID 
AFPFO* I 

717  FORMAT  I ?0X , * F RFOUFNC Y  TOO  LOW.  IONOSPHERIC  EFFECTS  MAY  BF*./25X.*I 
7MP0R  T  A N T •  .//  I 

718  EORMAl  ( ?0X . *A T TENUAT  ION  ANO/OR  SCATTERING  FROM  H YD ROME TfOWS* »/25X* 
A* I R A | N  .  ETC!  MAY  BE  IMPORTANT*! 

719  FORMAT ( ?0X .*A TMOSPHER.  .  AUSURPTION  ESTIMATES  MAY  BE  * . /25X . *UNREI  1 A 
9fi  L  F  *  I 

7?4  FORMAT < /I SX .A2  .‘COMPUTED  VALUE*! 

7?5  FORMAT ( ?nx .* T YPF.  «,?Afl,A))  1 
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7?6  FORMAT*  1?X.»FARTH*,r*),  0  .»  N  Ml  KM*  I 

7?8  FORMAT  (  1  ?X  •  »HRI  «  *  » f  !| ,  A  ,  »  ~  •  *  KR  .  4  ,  •  -*  «F»,4  •«  »  *'•»'«.  At*  KM*  ) 

729  FORMAT  (  1  AX  *  •  T  IMF  AVAILABILITY:  *(4A8«Al«//> 

711  FORMAT  I  1  2X  ♦  *  MIAI  *,Ffl.O.*  FT  MSI.  *  F8.4**  KM  MSL»I 

712  FORMAT  (  1?.X«»  HIE)  «iF8*l*«  FT  TO  SURFACE  *  •  IP  «4.»  KM  *> 

733  FORMAT ( 12X. ‘FREQUENCY* •  F5.0*»  MHZ  «*F8.0*‘  MHZ  *) 

734  FORMAT!  12X«‘  A  ( 0 )  *  ,  F9.5t*  01, 1/KM  OB/KM*,  A2  I 

735  FORMAT!  1?X.»  A(W»*.F9.5  >  »  PB/'KM  *.F8,5i«  OB/KM*,  All 

736  FORMAT! 1?X*‘D<HF»  «»FB.O**  *«Ffi.4t‘  KM»*A2> 

73  7  FORMAT!  1,->X.*F1RP  *.F0.1  ,»  DflW  P  CON*,FBtl**  OBW  *• 

738  FORMAT ( 1?X.*F  ANT  *  .  6  X  .  12*  ZXiSAfU 

739  F ORM A T ( 1 2X  ♦  *  0(C)  **F8.0.*  FT  *tFB,4«*  KM* ) 

740  F0RMAT(1?X.*  H ( C  >  **F9»lt«  FT  ABOVf  SURFACE  *»F8t4»*  KM* ) 

741  FORMAT! l?X.»COUNTFRPOlSr* ♦ !2»10X»2AS ) 

742  FORMAT! l?X«*H(FR>  «.F8.1»*  FT  ABOVF  REFLECT  1  ON* ♦ F 8 *4  *  *  KM* I 

743  FORMAT ( 1 ?X.*POLAR!ZATJON»  «I2*10X,2A8l 

745  FORMAT! 10X«A2,*0(HOI  **F8.2.*  N  Ml  FROM  HORIZON  »*F 8.2>»  KM* ) 

746  FORMAT! 10X.A2»*E(H0)  » ♦ I  2 ♦ */* ♦ 1 2 ♦ */*  ♦  1 2  ♦  *  DEG/M  I N/SFC* * 7X * F8 . 5 ♦ »  R 
6ADI ANS* I 

747  FORMAT! 10X»A2 .»H(HO)  *.F8.0**  FT  MSL  *,F8,4»*  KM*  I 

748  F0RMAT<12Xf*  N(0>»*F9.0  •*  N-UNITS  NtS>  *»F8.0*»  N-UN1TS*) 

749  FORMAT ( 1 2Xi*H( SUR) * »F8«0*»  FT  MSL  *»F8.4«*  KM*  1 

750  FORMAT(12X.*0H(SUR)*.F7,0**  FT  ’  **F8,4f*  KM*) 

751  FORMAT ( 12X**TERRAJN* .5X  *  12  * 10X.2A9 • 

757  FORMAT ( 12X* INPUT  PARAMETERS  FOR  ».A8.2X.A8»*  RUN»./12X*0F  *.A8»*  A 
1  I R /GROUND  MODEL*f//  ) 

760  FORMAT (1X»F7.2.12F8.1»F6.1«2F5.1«F6.1»A5I 

761  FORMAT ( 5X ♦•HORIZON  P0W=*tF7.1.*  AWn=«tF8.2!*  SLOPE** ♦ F8 . 2 ♦ *  Z“*t 
XE13.5 ) 

767  FORMAT (2F7.3 ♦ 3F 7 . 2 ♦ F4 . 0  ♦  F6 .0 ♦ F5 . 0 . F 7. 3 t2F8 . 5 ) 

768  FORMAT ( 3F7. 3 f2F7. 1 ,2F7.2  .  5X . 4 F7 . 1 , E 13 .5 > 

769  FORMAT  I 2F7.3 !3F7. 1 t2F7.3 ) 

772  FORMAT l»  HTF  HRF  D  OLT  DLR  CNS  ERTH  FREK  LAMDA 

X  TFT  TFR*) 

773  FORMAT (»  HFS  HRS  OH  AFO  SLP  OLST  DLSR 

X  DO  NM  LRF  AT  DO  WRH») 

775  FORMAT !/12X**P0WER  DENSITY  INTO  POWER  AVAILABLE  ADO  *»F6.1./) 

776  FORMAT ( 15Xi*P0WER  DENSITY  (OB-W/SO  M)  VALUES  MAY  BE  CONVERTED  TO  P 
XOWEP* t/20X. ‘AVAILABLE  AT  THE  TERMINALS  OF  A  PROPERLY  POLAR  I  ZED* t /2 
XOX  ♦•ISOTROPIC  ANTENNA  (DBW)  BY  ADDING  *!F6.l!*  DB-SQ  Mt*) 

777  FORMAT! 1HI I  2 ♦ 25HX ‘POWER  DENSITY  FOR  #5A8)i 

778  FORMAT < 15Xt*SUREACE  REFLECTION  LOBING:  CONTRIBUTES  TO  VARIABILITY 
X*  ) 

779  FORMAT  1 15X!*SURFACE  REFLECTION  LOB  I NG:  DETERMINES  MEDIAN*) 

785  FORMAT ( I2X!*SURFACE  REFLECTION  LOBING:  CONTRIBUTES  TO  VARIABILITY 
X*  ) 

786  FORMAT ( 12X!»SURFACE  REFLECTION  LOBING:  DETERMINES  MEDIAN*) 

800  FORMAT (// 10X ♦•SOME  PARAMETERS  ARE  OUT  OF  RANGE*) 

809  FORMAT ( 20X ♦*DLT  IS  LESS  THAN  .1XDLST  OR  GREATER  THAN  3XDLST* ) 

810  FORMAT (20Xt*INITIAL  TAKE-OFF  ANGLE  GREATER  THAN  12  DEG^*) 

D I  MENS  ION  CFK I  3 ) ♦CMK ( 3  I ♦ CFM ( 3 ) ♦CKM! 3 ) ^CKNl 3> 

D I  MENS  ION  ACD ( 101 ) ♦AND! 10 1 ) ♦ SC T ( 1 0 1  I  ♦  AAD< 101  )  *RW (  101  ) 

DIMENSION  FAT ( 5 ♦ 8 )  ♦CCI <  2  ♦  7 )  ♦ POL  I  2 ♦ 3 ) ♦ TSC < 2 >7  > 

DIMENSION  ADNTI3),  VAREOR I  4  ) 

DIMENSION  ADENT I  2  I >PAS ( 2  ) 

DIMENSION  MTMI 5  I ♦YCON! 5  ) 

DIMENSION  YV( 10)  ♦  SV (  10  ) 

D I  MENS  ION  PI  35 ) ♦QC( 50) ♦0A( 50 ) ♦POAI 5n) ♦  PQK ( 50 ) !QK( 50) ♦PQC ( 50) 

DIMENSION  T  YD ( 3  »2 I ♦VYD(5*2> 

DIMENSION  RE  I  2  I  ♦AOI35 ) ♦BDI35 ) ♦ ALM I  12) 

common/rytc/qns^qhoqha^qhs^qqd 

COMMON/EGAP/IPaN,  1 DT  »  IXT 

COMMON/PARAM/HTEoHRE^D^DLT^DLR ♦ENS>EFRTH> FREK !ALAM!TE Tf TER ♦KD>GAO> 

XGAW 

NOT  REPRODUCIBLE 
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common/pi.  tm;<n )  .nm  n  ( ,sx  i :  t  .sva  i  ,t  mm  .xc.vc  .<>xi ?oo.)t  i 

XY(;>oo,«l,tvo,  AAt.tr, 

COMMON.  SI  GiiT/nrwiMCW.PMAX.pML  .|t*K,  I  it  .FAC.MJ,  JCC  .NFC .PRMtOSL l  .PIflP, 
X0G1  ♦U0»,f>rv(i»rt0.Al  ,KN,.'M,ROHK,U.« 

COMMON  /  V„  AmV HI  .MR  > At.  J.C  1 1  WENT-  » I MRFK  »HLT .MLR ,  rH}  I A.HTP, AA.RCW 
COMMON /O  l  FPR/M 1 0i  HKD  ,  OH  ,#  F  D ,  SL  F  »f,L  S  t  .OLSR  » I  PL  ,r SC .HLO.MP® » AWO.SRP 
COMMON/ VAT  /  UV(  l  75)  .TANl  I  7  » IT'.  I 
CC'MMON/Ot.AT  / 1  A|.OI?Ct  it  AM.  U*  7  i  JO  I 
COMMON/VV/Vf I }A, I  71 
C  OMMON  »*  G  A I  /  1 F  A 

DATA  (CFk«*091  ..0003048 i  .0005048 ) 

DATA  (OMR*)  .  » l  .609344 . 1  ,85,7  I 
DATA  ( CFM* 1  ...3 048*. 7040) 

DATA  ICKM.JOOO.  .3280.839895  .3280.839893  I 
DA  1  A  r  C  r  N  “  »  •  lift*  IN  71  192  2  5 19956803 4  I 

DATA  IPOL*«M  LIOR12QN.3HTAL  ,8)1  Vf  RT  IC  A  .  1HL  .  9N  CIRCULA.lHR) 

DATA  t  F  A  T  » 1  OH  I  SOT  ROP I C  » 3  U  M  I  i  AH  OME  i  A I  1M  >iUH  T  AC  AN  (RTA-2>.3(1 
XH  I.39H  4-LOOP  ARRAY  (COSINE  VERTICAL  PATTERN). 39m  0-LOOP  ARRAY  1C 
XOSINE  VERTICAL  PATTERN), 34H  i  OR  II  (COSINE  VERTICAL  PATTERN!. JM  . 
X40HJTAC  TILTED  ?0  DEG  WITH  AO  HALF-POW  B.W,.’7hJTAC  TILTED  8  0EG.2 
XI 1H  )  I 

DATA (ALM«-6.2."6. 15 »-6.08«-6.0»-5,95 *-5.88, -5»B.-5.65i-5.35,-5.0,- 

X4.5.-3.7) 


DATA  , OMO*0H  AUG  73  ) 

DA  T  A  I T  SC« 1 6H  SC  A  WATER  .16H  GOOD  GROUND  .16H  AVERAGE  GROUN 

KD  » 1 6H  POOR  GROUND  .16H  FRESH  WATER  .16H  CONCRETE  »16M 

X  METALLIC  i 

DATA  ( p  A  S 1 2  M  ,?H»  I 

DATA  ( <  P ( I » . 1*1.35  I *.00001 ,.0000?,. 00005., 0001., 0002..0005,, 001 »• 
X002..005».Oi»»02*.05«.lUi,15».20.. 30, .90., 50, ,60, ,70, ,80, *85, ,90,. 
X95, .98,. 99, .995,. 998 ..999,. 9995 ,.9998, .9999 99995.. 99998. .99999) 
DATA! VYD*33HcOR  HOURLY  MEDIAN  LEVELS  EXCEEDED » 33HFOR  INSTANTANEOUS 
X  LEVELS  excecded) 

DATAITYD-l 7HSMO0 TH  EARTH  . 1 7H I RREGULAR  TERRAIN) 

DATA  (MTM*20»1 0.30.0*0) 


DATA  I Y C 0 N  =  5 . » 10. .25. ,0.  .0. ) 

DATA (CC I  * 16H  SEA  WATER  .16H  GOOD  GROUND 

XD  . 1 6H  POOR  GROUND  .16H  FRESH  WATER  «16H 
X  METALLIC  ) 

DATA  <DMO0=5H  DIFR)  *  DATA  <SMOO»5H  SCAT) 

DATA  (CM0D=5H  COMB) 

FNA (FX.EA  .F3.FC  iEO> ■ ( ( FX-FB ) * ( FC -FD • / ( FA-FB * *+FD 
IDT* IDATE ( I DX I 
I  G*0 

TP7H*2.61 7993078E-2  $  TLTH*0.  $  TPK*20 

CALL  09EXUN 


* 16M  AVERAGE  GROUN 
CONCRETE  ,16H 


ASPA*o,?s  *  A  SPRaO «  ?  5 

Zo*.ooooonoi 

RAD*. 01745329252  $  DEC, *5 7 . 295  7795  1  $  TWDG*12.»RAD 

ERTH  *6370. 


f-  PRE-PROGRAM  INPUT  OF  TABLES 

READ  108 . ( T  AVI  I  I ,( T  aHI ( J *  I • « J* 1 «7  )  ,  I»1  *175  I 

READ  71,< TALD(K) »( ( TAFLI l.J.K) , J-l  ,7> »  1*1 »2> ,K  =  1 ,20) 

READ  / 1 , ( DUMB ,((TAFL(I»J>K)*J=1»7),I*3»4)»K=1»20) 

READ  505  » ( I VF( I » J) » I *1 ,36) . J=1 ,3 ) 

READ  505»(IVF( I ,J ),|-l,36 ),J.4,1 7) 

<  - PROGRAM  START  WITH  CARD  1 - 

100  READ  7, IK, HP  I .IFA.IPL.SUR.HPFI ,DHSI »KSC .DC  I . HC I , ICC.DHOI ,HHOl , IDG, 
X1MN.ISFC.KE.KK.KD.EIRP.ILB 
PRINT  a 

P 1*3. 191592654  s  ICAR-0  I  NOC  =  0  S  I X T = I T I MEDAY ( I TX I 

IT  (  I  K  •  L E •  0  )  GO  TO  4  r*  1  * 


92 


(*  HlIMt  H*tlB  input  tv"  »:m*o  }~  >•<  1-  «  «  M  II  l«  ■  M  VMI  «  «  ■  «  tl«  I  N  «  M  M  |« 

rtf  Aft  B.A'ifNT.HA  l  iftH(  I,  (NO**1)  I  .AW! .P.nMIN.ftMAX.KC  .PMIN.PMAX.YC.  I A 

<;  - - - START  ftp  PARAMETER  \HtPt - — - - 

PRINT  .’nP.'jMI),  mi  >  IX! 

H?«MAIH’miM  *  MFS»MF  I  *CFK I  IK*  %  TREK-P 

fNtrtnMfl.H3.il!  I  (■,)«!• 

rtu  >.Af>rNl»  J  (  »  T  T  ( J  •  »Af)CNT  (  2  I 

m  j ! « m  * » •  m  s > »  aantii  »  .adnt  i  *»  i  ■  aon  t  i  j  >  »t  ?  1 6  i  «pas  t  i  » 

C  . . INPUT  OP  CARO  J  If  NECESSARY - 

IP  I  IA.T.T,  I A  I  Rf  Art  110.AONT 

T I ( 3  I  • AON  Till  »  1 1 1  A  I • AON T I J I  %  T T l 5  I  «AONT ( J I 

NK.AH.llifl.lAI/?) 

f,  N<  OOF  I  3  ?  .  7  7  7  »  VARFOR ) NK 

PRINT  VARFOR. ArtCNT.AONT 

PRINT  7n]  .HA  I 

FNfOOFIfl.AO.AAT I  HA! 

IF  IMA  I .GV.3QOOOO. >  I  CAR  »1 
IF! HA l«GT« 130000.)  PRINT  712 
IF<HAI.LT.«OG.)  PRINT  713 
IPIHAI.LT. 1.5)  PRINT  71  A 
IPIHAI.LT. 0.  I  C.o  TO  823 
PRINT  TO? .HP I 
IPIHPI.LT.O. I  GO  TO  825 
IP  IMP  I  *fiT  .9000.  I  PRINT  713 
I PIHFI.LT. 1.8  I  PRINT  716 
PRINT  703 ipREK 
IF  IP. IT. 100. IGO  Trt  805 
806  IF(F,LT,?0.)  GO  TO  100 
I  F ( F.GT ,5  000 . I  PRINT  71 fl 
IFIF.GT.17000.  )  r>0  TO  80  7 
808  IFIP.GT.100000.1  GO  TO  1  00 
PRINT  5 

IF  I  A 0 1  . L  T  •  0  •  )  r,0  To  56 
PXH-PAS' 1  I 

57  GAO* AO  I  *  GAW=*iW  I 

PRINT  70A .GAO.PXH.GAW.PXH 
IF  I  SUP. GT.  15000.)  ItAR-1 
IF  I SUR.lT .0. >  GO  TO  830 
831  ASPC=ASPX*ASPp*(6.c_3)*F 

PDCON  =  38 , 6 A A- 20. *AL0G1 0 1  FI  S  P 1 RP-EIRP-PDCON 
HRP.HPFMCFK  (  IK) 

1FIHAI.IT.IHPFI.600.))  ICAR«1 
FT  S=  5UR»  CFK (IX)  $  HAS.H2-FTS 

IFIFT5.LT. 0.)  ETSrO. 

1FISUR.GT. 16000.)  ICAR*1 
IFIHA6.LT.HFS1  GO  To  770 
IFIOHSI.LT. 0. )  OHSIrO. 

DH.OMS I  *CFK I  IK) 

IFIENO.LT.250..OR.FNO.GT.40O. I  GO  TO  801 
002  FNS=FNO»FXPF(-0.1057*HRP > 

IFIENS.LF.250. )  GO  TO  80} 

BOA  EFRTH.ERTH/I 1 .-.04665*EXPF(.005577#ENS) » 

EART«FFRTH*CKN(  IK  I 

HT .HFS+FT  5  *  H1«HT 

IF (HRP.GT.H1 I  GO  TO  825 

HTE«HT-HRP  $  DLST«SQRTF(2.*EFRTH»HTE) 

HFR I »HTE*CKM ( IK) 

IFIDHEI.lt. 0. )  GO  To  50 
FAC«DHFI*CFK< IK) 

PDH*PAS ( 1  I 

HR=H2-EAC  S  MRS=HR-fTS 

hre«hr-hrp  *  OLSR.SQRTF (2.*HRE*FFRTH> 

IFIHRE.GE.50.  I  iUSR»EFR TH»ACOSF  (  EFR TH/  (  EFR TH+HRE )  ) 
DSO“3.*SORTF(2000.*HTE  )  +  3 . *SdR TF (  200'1  «HRE> 
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JK-l 

55  PRINT  7n5 .DUE)  .POH.HPF! ,E!RP. tFATt I » IFA) . I-l .5 > 
l  F  ( DC  I  *t.F  •  20  )  GO  TO  789 
IF( ICr.LF.nl  00  TO  789 

f.  - - COUNTERPOISE  parameters  converted - 

N0C«1 

DCW-DC I *CFK (IK)  S  HCW-MC t *CFk < IK) 

PRINT  706. DC  I .HCI.ICCI ( I  ♦  ICC  >  .  I«1 .2  1 
1FIHCI.LT. 0.1  GO  TO  828 
829  1FIHCI.GT.S00.)  ICAR-1 
IF  (0CW.GT..1526)  ICAR-1 
IF (HCN.GT »HFS>  GO  TO  825 
mfc-ht-fts-hcw 
788  CONTINUr 

PRINT  707.1POI  tI.lPL>»I-l.?> 

C  - H0RI20N  ANO  INITIAL  TAKE-OFF  ANGLE  COMPUTATIONS-- 

POS-PTS-PMS-PASI  1 ) 

IFIKO.LF.il  GO  TO  785 

HI.  T  -HHOI  *CFK  I  IK)  S  DLT -OHO  I  *CMK  I  I  <  I 
HL  T5"HLT-HT 

OG.  IOC.  $  AMN-IMN  S  SEC-ISEC 

TET-RAD# ( DG+ t < I  SEC/60. I +AMN I /60. I  I  $  ATET- AB5FI TET » 

TATET-TANFI  TEH 
IFIKE.EO.’I  GO  TO  782 
IFI0LT.LF.20)  GO  TO  781 
759  IF  (KF-1 ) 7  80*7  5  8.780 
758  IFI  TET.LT.O. I  Go  TO  752 

HL  TS- DL  T*  T  A  T  ET  3 ( DL T»DLT / ( 2 . *EFR Th )  I 
753  HLT-HLTS+HFS+ETS  $  HHOI «HLT*CKM( IK • 

PHS*pAS ( 2  I 
783  C0NTIN1IF 

IFIOLT  ,LT.( .1*01  ST) .OR.OLT.GT. ( 3.-DLST) )  PRINT  809 
IFITET.GT. .20963951)  PRINT  610 
IFIHHOI.GT. 15000.)  ICAR=1 

PRINT  70  8.DHOI  .POS. (OG. JMN. I  SEC .PTS . HHOI . PHS 


PRINT  7?5. ITYD(I.KD). 1-1.3) 

PRINT  709.FNS.ENO 
IF(ILB)  GO  To  762 
PRINT  778 

763  PRINT  710.SUR.0HSI.ITSCC I *KSC ) *  I- 1 . 2 > 
PRINT  7?9. (VYD(I.KK). I=1.5> 

PRINT  776  » PUCON 
PRINT  726 .PAS ( 2  I 
1FIDMAX.GT.1000.)  DMAX-1000. 

IF ( ICAR.GT.O )  PRINT  800 

C  - START  OF  WORK  SHEET 

PRINT  6 

PRINT  757, IDT. IXT.OMO 

PRINT  5  $  PRINT  6 

PRINT  VARFOR.ADENT  »ADNT 

PRINT  731.MAt.H2 

PRINT  732.HFt.HFS 

PRINT  733.F.FREK 

PRINT  736.AOI .GAO.PXH 

PRINT  735.AWI .GAW.PXH 

PRINT  736 .DHEI .EAC .PDH 

PRINT  737.EIRP.PIRP 

PRINT  738. IFA.IFATI I , I  FA )  .  I  =  1 . 5  ) 

IFINOC.LT. I )  GO  TO  756 

PRINT  739.DCI.DCW 

PRINT  760.HCI.HCH 

PRINT  761. ICC, tCCIU, ICC). 1-1.2) 

756  CONTINUE 
PRINT  5 
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PRINT  742.HFRI.HTE 
IF ( F.GT • 1 600 • )  GO  TO  304 

QG1“(.21*S1NF(5 . 2 2* A LOG  10 (P/200* > ) 1+1.28 
QG9*< .  18»SINF  <5.22*ALOGlO(F/200. > I >+1.23 
CONTINUE 

PRINT  720.H2.EAC.HRP.HRE 
PRINT  743  »  I  PL  * (POL  I  I *IPL>*I“1*2> 

PRINT  744  t  PD 5  *DHO I  »DLT 
PRINT  74ft. PTS.  IDG, IMN.ISEC.TET 
PRINT  747.PH5.HH0I ,HLT 
PRINT  74fi.FNO.ENS 
PRINT  72ft. CART. EFRTh 
PRINT  749.SUR.ETS 
PRINT  750.DHSI.DH 
PRINT  751 .KSC.I TSCI I .KSC) .1  =  1 .2  > 

I F (  I  LB  >  GO  TO  764 
PRINT  705 
PRINT  775 . PDCON 
PRINT  729»(VYD( I *KK  >  »I“1»5> 

PRINT  724.PASI2) 

PRINT  5  *  PRINT  5 

PRINT  711 .PMIN.PM4X.DMIN *OMAX 
I F (  ICAR.GT .0 >  PRINT  800 

- EMD  OF  PRELIMINARY  PRINTING - 

CUBTR* 100 • /F 
DSD=6?.*CUBERTF(CUBTR  > 

DSL  1 aDSO  +  DSD 
ALAM=. 2997925 /F 
PRINT  4  t  CALL  PAGE<0> 

THRFK=30.*ALOG10<FRFK  > 

I  CP  r=o 

DLS=DL5T+DLSR 

AFP*32. 45+20. *ALOGlO(FREK > 

DKAX»DMAX»CMK  (IK.) 

- HORIZON  POINT  DISTANCE  AND  PARAMETER  CALCULATION - 

IFIJK.LT. 0>  GO  TO  58 

TRM  * (  (HTE  +  EFRTH)*COSF(TET>  > / < HRE+EFRTHl 
DML*EFRTH* ( ACOSF ( TRM l-TET > 

DlR’DML-DLT 
59  DNM»DML*CKN(  IK  > 

IFIDML.I F.O. >  GO  TO  107 

D*DML  *  TWEND"20.*ALOG10(D>  *  alfs-afp+twend 

HTP'HRP 
DRP*DL  SR 

TATERd  <HLT-HRI/DLR)-(DLR/<2.*EFRTH> > 

TER=ATANF(TATER) 

TATES= ( (HRP-HR)/DRP)-(DRP/(2.»EFRTH> > 

TES«ATANF( TATES) 

IFI (HLT-HRP* .LE.O. >  15.14 
15  DHRP-DLSR+DLT  *  GO  TO  13 

14  DHRP-DLT+OLSR+SQRTF! 2. *EFRTH*( HLT-HRP) ) 

13  CONTINUE 

HTD-HT  S  HRD-HR  $  HLD-HLT 

CALL  DFFRAC 

GVD  =  GA  INI  TET  I  $  GDD«20. +ALOG1 0  (  C.VD > 

SMD- < ( INTF ( DNM/] .1 ) *  1 • )  + 1 •  *  AMD  =  AWD+ ( SWP*D > 

ATD«ARD-AMD 
DZR—I  AWD/SWP) 

PRH—IAMD-GDD)  *  WRH»10.**(PRH*.l  ) 

ZH«ALOGlO(WRHl-2. 

C  - PRINT  STATEMENTS - 

PRINT  772 

PRINT  767.HTE.HRE.D.DLT.DLR,'ENS»EFRTH,FREK.ALAM.TET*TER 
PRINT  773 

NOT  REPRODUCIBLE 
95 


306 


765 


C 


PRINT  768.  HT .HR  .DH.AED.SLP.DLST . DLSR  *DNM • ALF5 » AMD.DZR »WRH 
PRINT  761  .PRH.AWD.SWP.2H 
PRINT  5  $  CALL  PAGE<6> 


C  - L  l NE-OF-S IGHT - 

CALL  ALOS 
NC  T  =  NU ( 1  ) 

SPD-SMD+p. 

C  - BEYOND  THE  HORIZON  CALCULATIONS - 

KFD'O 


DO  900  NSP=1«5 

MZS=MTM(NSP I 

IF (MZS.l E .0 1  GO  TO  907 

DO  901  MXSrl.MZS 

D*SPD»CMK< IK>  $  DNM-SPD 

IF ( D.GT.DHRP )  GO  TO  17 

DLR=D-DLT 

hlr-hlt 

TATER=( (HLR-HR)/DLR)-(DLR/(2.*EFRTH) ) 

TER=ATANF( TATFR) 

19  CONTINUE 

1FIKFD-1 )  A0*A1 .A? 

AO  KS-0  $  KR=-0 

KS3 1  $  ACD ( KS ) -  ARD  S  ANDIKSl-DML 

AMOD=DMOD 

EC1-HTE+EFRTH  *  £C2=HRE  *£FR  TH  S  EC3-HLT-HRP+EFRTH 
CALL  SORB ( EC1 «EC3 .FFRTH.OLT .TET .R01 ,RWl I 
CALL  SORB! EC2 .EC3, EFRTH.DLR. TER. R02.RW2» 

REO  =  R0 1  +  R02  $  REW=RW1+RW2  S  AA=GAO*REO+GAW*REW 

RW ( 1  I =RFW 
A AD ( 1 ) -AA 
DO  30  KC=  1  • 100 
KS-KS+l 
D«DNM»CMK(  IK  I 
SPD=DNM 

ACD(KSI-AED+(SLP*D> 

ANO i ks ) - d 

TWEND«20.*AL0G10(0)  S  ALFS- AFP+TWEND 

IF'D.GT.DHRPt  GO  TO  AA 

HLR-HLT 

DLR-D-DL  T  $  T ATER- I ( HL T-HR ) /OLR 1 - < DLRZ t 2 .«EFRTH I  I 

TER=ATANF( TATER' 

45  CONTINUE 

CALL  SCATTER 

SCT ( KS  l-ALSC-ALFS 

AAD  I  KS  I  ■=  AA  t  RWIKSI-REW 

I F  < SCT (KSl .LT.20. )  GO  TO  31 

KR-KR+1 

IF (KR.LF.l 1  GO  TO  31 
KP-KS-l 

SSP-  (  SCT(KS) -SCTIKP) »/( AND(KS)-ANDIKPl) 

PRINT  A99.DNM.SCTIKSI .ACD(KS) .SLP.SSP 
A99  FORMATI3F7.1.2F7.2) 

IFISSP.LE.I-.Ol ) •  GO  TO  A9 
IF  I SSP.LE.5LP I  GO  TO  A8 
31  DNM-DNMM, 

30  CONTINUE 

PRINT  1A  3  KFD-i  *  GO  TO  33 

A9  KR-0  t  GO  TO  31 

1A  FORMAT  I 5X  «* BEYOND  THE  50  MILE  LIMIT  DOING  DIFFRACTION*) 

33  DO  a 3  KG-l.KP 
D» AND ( KG  I 
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DNM*n*CKN< IK)  *  SPD’DNM 
TWEND=20«*ALOG 10(D)  S  ALFS- AFP+TWEND 

ATTS=ACD<KG) 

AA-AAD(KG)  $  REW-RW ( KG ) $  THETA-TET+TER+ID/EFRTH) 
ASSIGN  36  TO  tC T 
GO  To  200 
36  CONTINUE 
*3  CONTINUE 

SPD-DNM  S  MZ5-6  $  KFD-1  *  GO  TO  3? 

*6  IF< SCT <KP ) .GE.ACDCKP ) )  GO  TO  33 
ACDUP )=SCT(KP I 

SLP*( ACB(KPl-ARD)/<AND(KPl-DML) 

AED=ACD|KP)-( AND<KP)*SLP> 

ASSIGN  35  TO  KT 
DO  34  KG= 1  *KP 
D*AND (KG  I 

DNM*D*CKN ( IK)  *  SPD-DNM 

TWEND-20. * A LOG 10 1  0 •  $  ALFS- AFP+TWEND 

ATD-AED+( slp#o) 

atts»atd 

AMOD-CMOD 

AA- A AD ( KG )  S  REW«RW(KG>S  THEY A- TET+TER+ ( D/ EFRTH ) 

GO  TO  200 
35  CONTINUE 
34  CONTINUE 

SPD-DNM  $  MZS-6  S  KFD-2  S  GO  TO  3? 

41  CONI INUE 
AMOD-OMOD 
ASSIGN  37  TO  KT 
ATO-AED+(SLP*D> 

TWEND«20.*ALOG10<D)  S  alfs-afp+twend 
IFID.GT.DHRP)  GO  TO  24 

HL  R  *HL  T 

DLR-D-DLT  %  TATER-((HLT-HRI/DLR)-(DLR/(2.»EFRTM)> 
TER-ATANFI TATER) 

25  CONTINUE 

CALI.  SCATTER 

at  S-AI.  SC-ALFE 

IF ( ATS.LE.ATO)  GO  To  46 

A  T  TS*  A  TO  $  THETA«TET  +  TER+<D/EFRTHI  S  GO  TO  200 

46  ATT5-AT $  l  KFD-2  *  AMOD-SMOO  *  GO  TO  200 

42  CONTINUE 
AMOD-SMOD 

TWEND=?n. * ALOG 10 ( D I  t  ALFS-AFP+TWEND 

CALL  SCATTER 

AT S* AL SC- ALFS  *  AT  TS- ATS  S  ASSIGN  37  TO  KT 
200  CONTINUE 

C  - LONG-TERM  POWER  FADING - 

IFID.LE.DSL1  I  311.312 

311  DEE-1130. *D'/DSL1  *  GO  TO  313 

312  DEF-130.+D-0SL1  S  GO  TO  313 

313  CALL  VZDIDFE.OG1.OG9. AD) 

NCT-NCT+1 

PF  S-P I RP- ALFS 
PL  *-ATTS 
AL I M*  3 . 

AL10-PL+A0I  13 >  S  AY-AL10-ALJM 

IFIAY.LT, 0.1  AY.O. 

DO  11  K» 1  .35 
BDIK I -PL+ AD ( K ) -AY 
11  CONTINUE 
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c 


c 


c 


1? 


23 


00  12  K*  1  *  1 2 
ALLM*-ALM(K> 

IFIBDIK)  .GT.ALLM)  BD(K)»ALLM 
CONTINUE 


- VALUES  PUT  INTO 

BXINCT  *5)=BX<NCT.6)=BX(NCT*7) 
BXINCT *1 )r BXINCT. 2) =8X1 NCT. 3) 
IFIKK.GT.  1  '  GO  TO  20 
PGS-PFS+GDD 

BY ( NCT  » 1 ) =  PGS  S 

BY(NCT.3>=PG5+BD( 12>-AA  $ 

BYINCT  .5)»PGS-*8D<23)-AA  S 

BYINCT .7) =PGS+BD( 29) -AA  t 

PFYINCT .1 )=PGS+B0( A )-AA  $ 

PFYINCT. 3>=PGS+3D(10>-AA  S 

- PRINT 

PRINT  760.DNM.  (BYINcT.LZ  )  *LZ* 


PLOTTING  ARRAY 
*BX ( NCT  * 8 ) =DNM 
=  BX (NCT *4  ) =  DNM 


BYINCT.2  )«PGS-‘-BD<  18>-AA 
BY1NCT.4)=PGS+BD(24>-AA 
8Y(NCT.6)=PGS+BD< 26 l-AA 
BYINCT.8 )=PGS+BDI  32>-AA 
PFYINCT  *2)=PGS+BDI7)-AA 
PFYINCT. 4»=PGS+BDI 131-AA 

STATEMENTS - 

1*8 I. I PFYINCT, MW) .MW* 1*41 *PL*AA*AY.BK 


X  *  AMOD 
CALL  PAGE  I  1 > 


IFISPD.GT.DMAX )  GO  TO  907 
GO  TO  XT, (35*36*37) 

37  CONTINUE 
9C3  SPD  =  SPD-fYCON  I NSP ) 

9oi  continue 

5PD*SPO+YCON IN SP) 

NPP=NSP+  1 

IFINPP.GT.5)  GO  TO  907 
IF! YCONINPP1 .EQ.O. I  GO  TO  907 
IFINPP.EQ.O  GO  TO  907 
IXD«INTF(SPO/YCON(NPP)  ) 

SPD«( YCON(NPP)*FLOATF( 1XD) )+YCON(NPP> 
900  CONTINUE 
907  CONTINUE 


- PLOTTING  OF  GRAPH - 

SXIll-DMAX  %  SXI2I-DMIN  S  SYID-PMAX  »  SYI2)=PMIN 
DO  904  K*  1  *  8 
904  NUIK/=NCT 

NS  I  1 1 >9  4  NS(2)*NS(3)"NS(4)»1 

L  YD*0  *  LU0«  +  1  S  LL  =  4 
NS  I  5 • *N5 1  6 ) ■ 1 
IG-IG+l 

CALL  PLTGRPH  t 

GO  TO  100  f 

—LOOPING  BACK  TO  START  FOR  NEW  SET  OF  PARAMETERS - * 

17  TER=TES  S  DLR»ORP  *  HLR»HRP  *  TATER"TATE5  *  GO  TO  IV 
- TROPOSPHERIC  MULTIPATH - 

20  DO  21  1=1*35 
QA I  I  I ■ no  I  I ) -PL 

PQA  (  I  ).P<  I  I 

21  CONTINUE 

IFITHETa.GE.TPTH)  GO  TO  26 
IFITHETA.LE.O. >  GO  TO  27 
BK=FNA(THFTA.TPTH,TLTH.TPK.9DMKI 
28  CONTINUE 

CALL  Y IKK  I BK  *PQK  *QK  I 

CALL  CONLUT (QA*QK»POA*35*+l* *0. *POC*OC) 

DO  22  1=1*35 

22  BDI  II-QCI  D+PL 
GO  TO  23 
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24  TERcTES  *  DLR=DRP  t  HLR«HRP  *  TATER“TATES  *  GO  TO  25 

26  8K-TPK  $  GO  To  28 

27  BK=RDHK  S  GO  TO  28  , 

44  TER=T£S  *  bLR=DRP  $  H!.R*HRP  J  TATER»TATES  *  GO  TO  45 


C  - CALCULATION  OF  RAY  BENDING - 

40  PDH  =  PAS( 2  ) 

HP2=H2-HRP  S  HP1*H1-HRP 
DUM«0.0  *  ZER=0.0  S  QLlM»-1.56 

QNS»329.  $  QHC*HP 1  S  OHA«HP2  *  QHS«HRP 

CALL  RAYTRACIOUM) 

RY-TRACRAY(QLIM) 

DSO*QOO 

QNS»ENS  $  OHC-ZER  $  QHA-HP2  *  QHS-HRP 

CALL  RAYTRAC ( DUM) 

RY-»TRACPAY(  ZER  ) 

DL  SR  =  QOD  i  TSL2=DLSR/EFRTH 


IF< TSL2.LE..1 1  GO  TO  53 
R2FrFFRTH/COSF(TSL2 » 

HRE=R2F-FFRTH 
54  IF (HRE.GT.HP2 )  HRE*HP2 

HR“HRE+HRP  S  EAC=H2“HRP-HRE 
DHE I  =  EAC*CKM (  IK) 

JK  a_  1 
GO  TO  58 

53  HRE=(DLSR*DLCR)/(2.*EFRTH)  S  GO  TO  54 

86  CALL  ASORP ( F  *  AO  I  *  AW l  > 

PXHrPASI 2  I  $  GO  TO  57 

58  TEHiTET-M  DLT/EFRTH) 

IFIKD.LE.il  TEH=0.0 

ONS-FNS  *  OHCaHLT-HRP  *  OHA«HP2  *  OHS*=HRP 

RY  =  TRACRAYI  TEH)  %  DLR'QOO  $  DML=DLT+DLR  S  GO  To  59 

107  PRINT  106  i  GO  TO  100 

304  QG1=CG9*1 .05  S  GO  TO  306 
762  PRINT  779  S  GO  TO  763 

752  HL  TS=  DLT*  T  t'T  +  (  DL  T*  DL  T  /  ( 2  .  »EFR  TH I)  i  GO  TO  753 

764  PRINT  786  *  GO  TO  765 

770  PRINT  800  *  GO  TO  100 

c  - HORIZON  PARAMETER  CALCULATIONS - 

7B1  HE»MAX 1F< HTE • .005 > 

DL T =DL ST »EXPF(-.07*SQRTF( OH/HE) I 
POSaPASI 2  ) 

IFIDLT.LT. I .1*DLSTI )  DL  T  =  , 1 *DLST 
IFIDLT.GT.I 3.«DLS;  I  I  OL  T »3 • *DL ST 
DH0I=DLT*CKN(  IK) 

GO  TO  759 

730  TRMai ,3«DH*( (DLST/DLTI-1 . ) 

TET«I.5/0LST )*( TRM-(4.»HTE  *  > 

I F  t  TET .GT • TWDG  I  TET«TWDG 
CALL  RAPE MS (TET  *  IDG. IMN  » SFC • 

isec«x intkiseci 
PTSaPASI 2  I 
TATET  =  TANF( TET  I 
GO  TO  75 B 

762  XTRM*SQRTF( ( EFR TH*EFRTH* TATE T * T ATET I ♦ < 2. *EFRTH*HLTr ) ) 
YTKM»-EFRTH»TATET  j  dlt-ytrm-xtrm 

IFIOLT.LF.O.  I  DLTaYTRM  +  XTRM 
PDS.PASI 2  I 

DHOI «DLT*CKN (IK)  *  GO  TO  783 
760  TA1ET*IHLTS/DLT)-IDLT/(2.*EFRTH»I  *  TET-ATANFITATET) 

PT S*PAS( 2  I 

764  CALL  RADEMSITET.IDG.IMN.SECI 

Nor  reproducible 
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ISEC-XINTF(SEC)  $  GO  TO  783 

- - - SMOOTH  EARTH  PARAMETERS - - - 

755  pTS-PDS-PAS<2> 

DLT-DLST  $  DHOI-DLT*CKN< IK> 

TATET*(-hTE/0LTI-(DLT/(2.»EFRTH) I  *  TET«ATANF( TATET) 
HLT=HRP  S  HH0t=HLT*CKM< IK)  $  DH-O. 

GO  TO  784 

789  HKC-O.  $  GO  TO  788 

801  ICAR-1  $  ENO=301.  S  GO  TO  802 

805  ICAR-1  $  PRINT  717  $  GO  TO  806 

803  ENS-250.  5  ICAR-1  J  GO  TO  804 

807  I  CAR  - 1  S  PRINT  719  S  GO  TO  808 

825  PRINT  800  $  GO  TO  100 


828  ICAR-1  S  HCI-0.  $  GO  TO  029 

830  I  CAR- 1  S  SUR-O.  S  GO  TO  831 

C  - TERMINATION  OF  PROGRAM- 


451  CONTINUE 

CALL  CRTPlT(0»0.0.0»20) 

PRINT  4 

PRINT  2 

CALL  EXIT 

END 
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B.2  STATION  SEPARATION  PROGRAM 


Input  parameters  for,  and  the  output  generated  by,  the  station 
separation  program  (DOVERU)  are  discussed  in  sections  3.1.1  and  3.2.2, 
respectively.  Information  concerning  input  parameter  cards  and  FORTRAN 
variables  is  given  in  figure  23  and  described  further  in  table  7.  Sub¬ 
programs  for  all  programs  are  listed  in  section  B.4.1.  Of  these  DOVERU, 
requires  (app.  B)  ASORP,  BLOS,  CONLUT,  DEFRAC,  DELTA,  FDASP,  FDTETA, 
FRENEL,  GAIN,  GHBAR,  HCHNOT,  LINE,  PAGE,  PLTDU,  POWSUB,  RADEMS,  RAYTRAC, 
RECC,  RTATAN,  SCATTER,  SORB,  TABLE,  TERP,  TRMESH,  TSMESH,  VZD,  and  YIKK 
(sec.  B.4.1)  and  the  data  tables  (sec.  B.4.2).  A  block  diagram  of  the 
operations  performed  by  DOVERU  is  given  in  figure  26.  Text  references 
and  major  subprograms  that  are  relevant  to  specific  blocks  are  Included 
there.  A  listing  of  DOVERU  is  provided  at  the  end  of  this  section. 
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I'HOGMAm  nnvt  hu 


C  Mini t  |M  For  Mi*om  Aiiu  M 

i  I  OHM  A I  I  *  I'RtloRAM  |S  MNISHFD.  tl 
A  I  ORMAI  t  I  M  |  1 
A  filR.'A!  I  |M  I 

(i  i  OHM  a  n  ,'AA,.'M»,n*rA.o*iFfc.o*aBX*i?i 

1  I  OHM  A I  I  l’,U,0.?IMfA,Oi  I2.2F6.0.  12.2F6.0.3  IS.  3  12  .F6.0.  1 1  I 

a  format  t  .*«*•?!  **>nr«,'.)tirfk»n. 2i ?F4.o»F*.o>  •  12 > 

1  IORMAI  I  I,1  ,nl  S,0I 
1*  I  I'UMA  I  I  f  l,  ,0  i  A*  l 
All  I  HIM  A  I  II  *.H  I  |  X  * 

7  |  I  i  HIM  A  I  I  *  A  ,11  I  |  hi  A,  l  I 

IA«  1 1  him  a  i  i»ii‘.i  ii?r»,?n 
11  ft  I  PRAIA  I  I  1  A  A  I 
AO*  FORMAT  I  II  r  7, A  | 

T>>  I  HHMAI  I  |HI  I  2  t.'MIV*ms|RFr>  STATION  is  MA8II 
TTI  f  I'kMAT  |  )HI  l.’*?1IOf»nNI)rS|MF|<  STAIION  IS  »3A6>> 

7  TR  I  OHMAT  i  (III  |  I  IMHXAOI  b  |  NIP/UNDFSIRf  n  STATIONS  ARE  •  5  A8  •  I 
nio  I  OHM  A  II  A»  ,  If  r  ,  '  ,  1  (  .*  A  »  ,*  I  7,  1  I  ,  ix  .AT?.  1  I 

?«k  I  OHMAI  I  1  |  »  ,  •  N  •'  1 1 1  u  A|  Milts  FRF  I  SPACE  MEDIAN 

| -  .0/U . -  -  •  I 

t*>  form  a 1 1 iox«»s  on  nu  no  du  dd  du  f.sp 

*  AC  I  ’■  •> r>  ’  os"  •  i 

*nn  i  ohmai  i  >n«  *m  t,  i  >  i 

*01  f  ItHM  A  T  I  X  X  .  r  8  ,  I  ,  A  r  •»,  I  .  ?  |  I 

f '  I  M I  N :  I  v  i  N  I '  A  I  .1  ,0(1 1  I  I  ,01'  I  J  I  .PCI  3  »  ,0C(  3  I 
i  OMA'ilS  /  (  GAP/  |P  ,1  N,  1  0  T  •  I  XT 

COMMI  I, ,  i'  A  I  NO  /  IX  ,nr  I  ,  |l»l  .'iUM.MPr  I  •  OHS  I  •  XSC  .  PC  I  *HC  I  .  ICC.DHOI  .HHOI ,  ID 
Xf.,  I  Mil.  I  'I  f  ,  *  l  ,  X I  »  KD » F  1  RP  »  I  l.O  »HA  I  .OHEl .ENO.AOl  .AW  I  *F .  I  A  .ADENT  (  2  )  *A 

X  ON  TIM  ,VA'II  OR  I  A  |  ,r‘IAX 

commps /oa  mi  /  no  r  ,or  y  i  ?oo  ,M 

I'  OMMI  HI  V  AT  /  I  A  V  n  M-  I  ,  r  All  I  I  l  ,  l  73  I 
COMMON/ni  AT  t  T  A|  0 1  ?L>  I  ,  T  AFL  I  A  ,  7  *  ?0  I 
COMMON/VV/Vr I  is. 171 
common  !  clt  T  /  II  A 

COMMON /Pi  IVLUD.LI.  .NUI  8  I  .NS(  8  )  .SX(  2  >  «SY<2  |  *TT<5  I  .XC*  YC.BXI  200*8  )  »B 
XY  I  71)0  ,H  *  »t  YD.  A  A 1  ,  TC, 

DATA  (PA  .,  jil  i 

FNAIKX ,1  A  ,CH,F(  ,FDI«  t If X-Ffl ' * ( FC-TO • / ( FA-FB > <+FD 
r NB ITRX , FRA  »FHB I • IFRX-FRH I / I FRA-FPM  » 
fnc  irrx ,r i  c.rrm » i rrx»  ( rfc-FFo) »  affd 
ipt.  i o A T I  |DX  I 

pp  I  1  I  »  ,  A  1  »  PP I ? I  * • NO  t  nP(7)  =  .P5 

|r,.o 


c 


PRE-PRnGRAM  INPUT  OF  TABLES 

RF  AD  108.1 TAVI l  I .< TAHlfJ. I >  » J-l »7» . 1*1 .175> 

RFAD  71  *(  TALDIK  I .  I  If  AFL  I  I.J.IC  I  .  Jr  1,7  I  *  !«1»2>  »K- 1*201 
►it  AD  71*1  DUMB*  (  ITAFL<I*J*ICl*J“l*7)*I»3»4l*K"l*20l 
READ  !03. 1 (VF( I *JI . I»1 *36»  *J=1 *3  I 
RFAD  803*1 IVFI I *J) *I«l .36) * J» A  » 1 7 • 


C  - ..--PROGRAM  START  WITH  CARO  1 - 

100  RFAD  9.|s,SM!N,SMAX,5NC*D0 
IF (I S.t  F .01  00  TO  4S1 

C  - - INPUT  OF  CARD  - - 

RFAD  7  *  IX  *HF I . I  FA, | PL  « SUR  »HPF I *DHS  J .XSC .DC l » HC I «  ICC  *DHOI *HHOI • IDG* 
XIMN.ISFC.  XE.KX.XDtFlRP.ILB 

c  - INPUT  OF  CARD  - - 

Rt  AD  8  .  ADEN  T .HA  I . DUE  I  * L NO . A 01 .AW  I ,F . DM  I N . DMAX . XC . PM  I N . PM AX . YC . I A 
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I  X T- I T 1 MFOA Y I I T X  > 

TTI1I«ADFNT(1)  $  TT ( 2  »  = AOENT ( 2  >  t  CMAX-SMAX 

T  T  1 3  )  =  T  T  (  4  )  ■=  T  T  (  5  )  =  ADNl  (  1  I  =  ADNT  (  2  I  "ADNT  (  3  )  -PAS 

C  - -.-INPUT  OF  CARD  4  IF  NECESSARY - 

IFI IA.GT.161  READ  110.ADNT 

T  T ( 3 ) = AON  T ( 1  )  S  TT ( 4 • "ADNT ( 2  I  S  T T I  5 > - ADNT ( 3 > 

ENCODE I  8  *  50 ♦ AAT  )  HA  I 
ENCODE(0.32*TGiDD 
IFI I S  .  G  T  .  1 )  GO  TO  15 
NX "43- I  I  3 1+ I A  I /2  1 
E  NCODE 1 40  .779 » VARFOR ) NX 

C  - OBTAINING  ISOTROPIC  POWER  ARRAY  FOR  DESIRED  STATION - 

16  CALL  POWSUB 

C  - PRINT  STATEMENTS - 

PRINT  900*1  (PFYILA.LB) . LB- 1 . 6  I *L A" 1 *NCT ) 

PRINT  5 

MCK-NCT/2  $  CALL  PAGEIMCK* 

c  - 

DO  20  I«1 *NCT 
IFIDD-PFYI  1*1  I  122.21.20 

20  CONTINUE 
I  =NC  T 

22  IFI I.LE.l  )  I "2 
L  *  I  - 1 

DRAT=FNB( DD.PFYI I » 1 ) .PFY I L . 1 > ) 

DFS-FNCIDRAT  .PFYI 1 . 2  > , PFY I L . 2 ))  *  DPW'FNC I DRA T . PFY I  1.3) .PFYIL.3 ) ) 

DV5=FNC(DRAT .PFY I  I,4>.PFYIL.4)  )  S  U50 'FNC I  DR A T . PF Y I  1.5)  .  PFY I L  ,  5  )  ) 
D95-FNCIDRAT  .PFYI  1 . 6 > .PFY t L  .6 >  I  S  GO  TO  25 

21  DFS«PFYII.2>  S  DPW-PFYII.3)  S  DV5-PFYII.4) 

D50-PFY (1.5*  $  D95-PFYI  I  .6) 

25  IF  I  IS.LE.  1  )  GO  TO  28 


c  - If--  NECESSARY  FOR  UNDESIRED  FACILITY - 

C  - INPUT  OF  CARD  TYPE  2 - 

READ  7. IK. HE  I  .  I  FA , I  PL . SUR . HPR 1  . DHS I ,KSC .DC  I . HC I . I CC .DHOI .HHOl.IDG. 
XIMN. I  SEC. ISC  ,KK  .KD.FIRP.  ILR 

C  - INPUT  OF  CARD  TYPE  3 - 

READ  6. ADEN T .HA  I ,DHE I . ENO , AO  I . AW  I .F.  I  A 
ADNT I  1 ) = ADNT I  2 ) =ADNT (3  I “PAS 

r  - IF  IA  GREATER  THAN  16  INPUT  OF  CARD  TYPE  4 — - - 

JFIIA.GT.16>  READ  110. ADNT 
NX-43-1 (21+IAI/2» 

ENCODE  I  4 8, 778  ,  VARFOR >NK 

C  - OBTAINING  ISOTROPIC  POWER  ARRAY  FOR  undesired  station — 

call.  POWSUB 

C  - - - PRINT  STATEMENTS - 

PRINT  900.1  I PFY I  LA .LB  I .LB-1.6I.LA-1.NCT) 

PRINT  5 

MCK-NCT/2  S  CALL  PAGE  I MCK  > 

C  - 

C  '  - CALCULATION  OF  D/U  RATIOS - 


28  S  =  SM I N 

DA  1 1 ) =DV5  *  DA  I  2  > -D50  $  DAI3I-095 

JCT-0 

C  - -PRINT  STATEMENTS - 

PRINT  791  *  PRINT  792  $  CALL  PAGE  1 2 ) 

C  - 

DO  26  KLB-1.NCT 

I  "KLB  *  DU-PEY(I,1I  (  S-DU  +  DD 
IF  I S.GT.SMAX I  GO  TO  27 
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JCT-JCT+1 

BX< JCT.1>»BX< JCT.2)=BX(JCT.3>eBX< JCT.4>*S 
31  UFS=PF Y (1*2*  *  UPW«PFY (  I  » 3  )  $  UV5-PFY11.4) 

U50*PFY(  I  .5 >  $  U95  =  PFY(  I  .6 ) 

23  BY(JCT.1)*0FS-UFS  S  REFV*DPW-UPW 

OB • 1  I «UV5  S  OB  <  2 ) “U50  S  Dfl(3)“U95 
CALL  CONLUTIDA.DB.DP.3.-1..0. .PC.DC) 


C  - VALUES  PUT  INTO  PLOTTING  ARRAY - 

BY  <  JCT  « 2 1 “REFV^OC ( 1  I  S  8 Y ( JCT . 3 > -REFV+DC I  2 ) 
BY ( JCT  .4 I mREFV+DC ( 3 • 

C  - PRINT  STATEMENTS - 


PRINT  790.S.D0.DU.DF  ;>.UFS.DPW.UPWf  (BY!  JCT.K)  ,K-1 .4) 
CALL  PAGE! 1 1 


26  CONTINUE 

27  continue 

C  - * - PLOTTING  OF  GRAPH - 

SX(1>«DMAX  *  SX ( 2  I *DMIN  S  SY(1)»PMAX  S  SY(2>»PMIN 
DO  904  K«  1  *4 
904  NU ( K ) * JCT 

N S  <  1  1*9  S  NS<  2  )  -NS (  3  )  «=NS ( 4  >  - 1 
LYO-O  t  LUD-+1  S  LL«4 
I Gu I G+ 1 
CALL  PLTDU 
GO  TO  100 

C - LOOPING  BACK  TO  START  FOR  NEW  SET  OF  PARAMETERS - 

15  NK-43-I (19+IAI/2) 

ENCODE! 48. 777. VARFOR INK 
GO  TO  16 


C  - TERMINATION  OF  PROGRAM 

451  CONTINUE 

CALL  CRTPLTIO. 0.0. 0.20) 

PRINT  4 
PRINT  2 
CALL  EXIT 
END 


NOT  REPRODUCIBLE 


B.3 


SERVICE  VOLUME  PROGRAM 


Input  parameters  for,  and  output  generated  by,  the  service  volume 
program  (SRVVOLM)  are  discussed  in  sections  3.1.1  and  3.2.3,  respectively. 
Information  concerning  input  parameter  cards  and  FORTRAN  variables  are 
given  in  figure  24  and  further  described  in  table  7  (app.  B).  Subprograms 
(sec.  B.4.1)  and  data  tables  (sec.  B.4.2)  required  by  SRVVOLM  are  ASORP, 
CLOS,  CONLUT,  DEFRAC,  DELTA,  FDASP,  FDTETA,  FRENEL,  GAIN,  GHBAR,  HCHNOT, 
LINE,  PAGE,  PLTVOL,  PWSRB,  RADEMS,  RAYTRAC,  RECC,  RTATAN,  SCATTER,  SORB, 
TABLE,  TERP,  TRMESH,  TSMESH,  VZD,  and  YIKK.  A  block  diagram  of  the 
operations  performed  by  SRVVOLM  is  given  in  figure  27.  Text  references 
and  major  subprograms  that  are  relevant  to  specific  blocks  are  included 
there.  A  listing  of  SRVVOLM  is  provided  at  the  end  of  this  section. 


PROGRAM  SPVVOLM 
C  ROUT'.NE  FOR  MODEL  AUG  73 

2  FORMAT (•  PROGRAM  1 5  FINISHED.  *) 

4  FORMAT ( 1  HI ) 

5  FORMAT ( 1 H  ) 

6  FORMAT  <2A8»2F6.0»F4.0.3F6.0.28X»  12  > 

7  FORMAT (  !2»F6.0.2I2,3F6.0»I2.2F6.0.!2t2F6.0,3I3.3!2*F6.0.Il > 

8  FORMAT (5A8.F4.0.2F6.0.F5. 0.121 

9  FORMAT! 12 .2p4 .0 . 2  1 2 . 3F4 .0 »F6 .0 . 2F5 .0 > 

32  FORMAT (F4.0.4X  ) 

50  FORMAT (F7.0.1X  1 
71  FORMAT (F5.0.14F5.1 ) 

106  FORMAT I  5X  » *  DML  IS  I  ESS  THAN  ZERO.  ABORTING  RUN  *1 
100  FORMAT I2IF5.3.7F5.2)  ) 

^0*5  format  i  i i F7« a  i 

C  FORMAT  STATEMENTS  FOR  PARAMETER  SHEET  AND  WORK  SHEET 

700  FORMAT < ?3X ‘PARAMETERS  FOR  SERVICE  VOLUME  CUR VES* . /34X . *  I TS  MODEL*. 
XA8./30X.A8.2X,A8.»  RUN*.//) 

701  FORMAT  (  37X . ‘REQUIRED  OR  F  I  XED*  .  / 32X  .* - *1 

70  2  FOkMAT  (  15X»*FACII-ITY  ANTENNA  HE  I GHT  •'  *  *F7»  1  *  *  FT  ABOVE  SITE  SURFACE 
X*  ) 

703  FORMAT  I 15X.  +  FREQUKNCY: «iF6.0»*  MHZ*) 

704  FORMAT <?9X. ‘SPECIFICATION  OP  T  I  ONAL*  . /29X  .  * - *. 

4/lSX.»ABSCRPT ION  '  OXYGEN*. T9. 5 . *  DB/KM» . A2 . /27X .‘WATER  VAPOR*. F9. 5 
4*»DB/KM».A2 1 

705  FORMAT! 15X. ‘EFFECTIVE  REFLECTION  SURFACE  ELEVATION  ABOVE  MSL-*,F7. 
50.*  FT*. /15X. ‘EQUIVALENT  ISOTROPICALLY  RADIATED  POWER:  *.F6,1.*  DB 
5W*./15X. ‘FACILITY  ANTENNA  TYPE:  *.5A8> 

706  FORMAT ( 20X.«COUNTERPOISE  D 1 AME TER : * , F5 .0 . *  FT* . /25X .*HE I GHT:  * .F5 .0 
6  i  *  FT  ABOVF  SITE  SURFACE  »  .  /  2  5X  »  »  SURFACE  ■' *  .  2  A8  ) 

707  FORMAT ( ?0X , *POL AR I  7  A T I  ON : *  »  2  A  8  I 

7o»  FORMAT! 15X. ‘HORIZON  OBSTACLE  D I  ST ANCE :  * . F7 .2 . *  N  MI  FROM  FACILITY* 
8. A2./20X. ‘ELEVATION  ANGLE:  *.I3.*/*.I2.*/*»I2»*  DEG/MIN/SEC  ABOVE 
8  HORIZONTAL*. A2./20X. ‘HEIGHT: ‘.F6.0.*  FT  ABOVE  M5L‘.A2) 

709  FORMAT ( 15X. ‘MINIMUM  MONTHLY  MEAN  SURFACE  REFRAC T I V  I TY : * ./20X » F3 .0 . 

9*  N-UNITS  AT  SEA  LEVEL:  *»F3.0»*  M-UNITS‘1 

710  FORMAT! 1SX, ‘TERRAIN  ELEVATION  AT  S I TE : * »F6 .0 . *  FT  ABOVE  MSL*./20X» 
A ‘PAR AME I uR ; *.F5.0*‘  FT* . /20X . * T YPE :  *.2A8) 

711  FORMAT ( 2X .13F6.0 ) 

712  format (sx.i5F5.oi 

713  FORMAT (F8.0»2X.A8»6(F8.1 .F8 . 0 ) / ( 1 8X . 6 ! F8. X .F8.0 11 ) 

714  FORMAT ( 15X* A IRCRAFT  ALTITUDES  IN  FT  ABOVE  MSL:  * . 3  (  F7. 0 . A1 ) » 

715  F0RMAT(20X. ‘ANTENNA  TOO  HIGH.  RAY  BENDING  OVERESTIMATED*./) 

716  FORMAT! 20X . ‘ANTENNNA  TOO  LOW.  SURFACE  WAVE  SHOULD  BE* . /25X ,*CONS ID 
6ERED* ) 

71?  FORMAT <20X. 'FREQUENCY  TOO  LOW.  IONOSPHERIC  EFFECTS  MAY  BE*./25X.*I 
7MP0RTANT* . // ) 

718  FORMAT  <  20X .*ATTENUAT ION  AND/OR  SCATTERING  FROM  HYDROMETEORS* . /25X . 
8* ( RA IN  »  ETC*  MAY  BE  IMPORTANT*) 

719  FORMAT (20X. 'ATMOSPHERIC  ABSORPTION  ESTIMATES  MAY  BE* » /25X  *  *UNREL I A 
9BLE‘» 

724  FORMAT! /15X.A2. ‘COMPUTED  VALUE*) 

725  FORMAT (20X»*TYPE:  ‘.2A8.AU 

726  FORMAL!  LCXj^CTRlH* .F9.0  .*  N  Ml  *.F8,0.*  KM*  ) 

72^,  iCRMAW  m*D/\)  RATIOS  IN  DB  :  *  .  1 0 1  F3 .0  ,  A 1  1  , /20X  .  1 3  (  F3 . 0 ,  A 1  I  I 
7?9  FORMAT ( 15X,*TIMF  AVAILABILITY:  *.4A8.A1> 

731  FORMAT <1SX‘D/U  RATIOS  IN  DB :  *.10(F3.0»A1 1./20X.13IF3.0.A1 I ./20X.1 
X3 (F3.0 .All) 

732  FORMAT  I  1 2X » *  HI F I  *.F8.1.*  FT  To  SURFACE  *,r8„4.*  KM  *) 
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733  FORMAT < 12X.*FREQUENCV*.  F5.0.*  MHZ  *»F0.O»*  MHZ  *1 

T34  FORMAT ( 12X»*  A<0)*,  F9.5.*  OB/XM  *.F8.5»*  DB/XM*.A2) 

735  FORMAT ( 12X .'  A!W)*,F9.5  **  DB/XM  *»F0.5»*  DB/XM*. A2) 

736  FORMAT I 15X*D/U  RATIOS  IN  OB;  *. 10< F3.0 *A1 I) 

737  FORMAT ( 12X*'EIRP  '.F9.1  .*  OBW  *.F8.1»*  DBW  *) 

738  FORMAT ( 12X.«F  ANT  '.6X.12.  2X.5A8I 

739  FORMAT ( 12X.*  0 <  C  >  *.F8,0.*  FT  *»F8.4»*  AM* I 

740  FORMAT <I2X.*  H!C»  *.F8.0.*  FT  ABOVE  SURFACE  *.F8.4»*  XM*> 

741  FORMAT < 12X. 'COUNTERPOISE*. 12. 10X.2A8) 

742  FORMAT ( 12X.*H<FR)  *.F8.0.*  fT  ABOVE  REFLECT  ION* »F8.4 »*  AM* ) 

743  FORMAT ( 12X .*POLAR I ZAT ION* *  1 2 . 10X *2A8 > 

745  FORMAT ( 10X.A2 **D<HO)  *.F8,2.9  N  Ml  FROM  HORIZON  **F8.2»*  AM*) 

746  FORMAT ! 10X.A2 .*E<HO)  ** 12.*/*. 12.*/*. 12**  OEG/MIN/SEC* *7X »F8.5 »*  R 
6A0IANS  '  • 

747  FORMAT ( 10X.A2  .*H(HO)  *.F8.0.*  FT  MSL  *.F8.4»*  AM*) 

748  FORMAT ( 12X » *  N(O)*,F9.0  ♦*  N-UNITS  N(S>  *.F8.0«*  N-UNITS*) 

749  FORMAT! 12X.*H(SUR)*,F8.0.»  FT  MSL  **F8.4»*  AM*) 

750  FORMAT  1 12X .*DH( SUR ! » .F7 .0 . *  FT  *.F8«4.*  AM*I 

731  FORMAT ( 12X,*TERRAIN*.5X* I2.10X.2A8) 

752  F0RMAT(15X*STATI0N  SEPARAT ION: *  .F5.0,*  N  MI*) 

756  FORMAT (25X.2A8) 

757  FORMAT ( 12X* INPUT  PARAMETERS  FOR  *.A8.2X.A8»*  RUN**/12X*0F  *»A8.*  A 
1IR/GR0UND  MODEL*.//) 

772  FORMAT ( 15X*AIRCRAFT  ALTITUDES  IN  FT  ABOVE  MSL:  * *3 ( F7.0 • Al ) . /20X.7 
2(F). O.A1) I 

773  FORMAT (15X*AIRCRAFT  ALTITUDES  IN  FT  ABOVE  MSL:  * .3 ( F7.0 . Al ) » /20X. 7 
3IF7.0.A1 ) • /20X  .7IF7.0.A1  )  ) 

774  FORMAT! 15X»AIRCRAFT  ALTITUDES  IN  FT  ABOVE  MSL :  * .3! F7.0 » Al ) . /20X.7 
4IF7.0.A1 ) ./20X.7IF7.0.A1 ) . / 20X . 7 < F7 .0  * Al ) ) 

776  '-'ORMAT  ( 1 5X*  A I RCRAFT  ALTITUDES  IN  FT  ABOVE  MSL:  *  .3  ( F7.0  »  Al )  . /20X.7 
MF7.0.A1  I  ./20X.7!  F7.0.A1  1  , /20X  .  7(  F7 .0  *  Al  >  »/20X  .F7.0 ) 

778  FORMAT ( 15X. 'SURFACE  REFLECTION  LOSING:  CONTRIBUTES  TO  VARIABILITY 
X*  ) 

7-9  FORMAT !15X.*SURFACE  REFLECTION  LOSING:  DETERMINES  MEDIAN*) 

785  FORMAT ( 12X. 'SURFACE  REFLECTION  LOSING:  CONTRIBUTES  TO  VARIABILITY 
X*) 

786  FORMAT! 12X. 'SURFACE  REFLECTION  LOSING:  DETERMINES  MEDIAN*) 

790  FORMAT (5X.3F 7. 1.2! 2X. 2F7.1 ) .3X.4F7.H 

791  FORMAT!  UX. 'NAUTICAL  MILES  FREE  SPACE  MEDIAN 

X - D/U - *) 

792  FORMAT llOX.'S  DO  DU  DD  DU  DD  DU  F.SP 

XACE  5%  50%  95%*) 

796  FORMAT  1 5X.*AIRCRAFT  HEIGHT  IS*»F8.0.*  CORRECTIVE  HEIGHT  IS'.FB.O. 
6A2> 

797  FORMAT ( 1H( 1 2 *26HX*DESIRED  STATION  IS  *5AS>) 

798  FORMAT ( 1H< 12. 28HX*UNDES I  RED  STATION  IS  *5A8)I 

799  FORMAT ( 1H! I  2  »38HX*DES I RED/UNDES I  RED  STATIONS  ARE  *5A8>> 

800  FORMAT 1//10X. 'SOME  PARAMETERS  ARE  OUT  OF  RANGE*) 

809  FORMAT (20X.*DLT  IS  LESS  THAN  .1XDL5T  OR  GREATER  THAN  3XOLST* ) 

810  FORMAT (20X. 'INITIAL  T AXE-OFF  ANGLE  GREATER  THAN  12  DEG.*) 

900  FORMAT  <2! 3X.6F7.1) ) 

901  FORMAT (5X.F8.3.5F7.1.2I2) 

DIMENSION  DA! 3 » .DB!3*.DP(3 * .PC! 3) .DC! 3 • 

DIMENSION  CFX ( 3  )  »CMK (3 ) »CFM<  3 ) »CXM I  3 ) »CXN1 3 ) 

DIMENSION  FAT! 5. 8) .CCI! 2.7) .POL  1 2 .3  I *TSC< 2 .7 ) 

DIMENSION  PAS ( 2 ) 

DIMENSION  ACHT ( 25 ) .DEHT 1 25 ) 

DIMENSION  APCT ( 4 ) .LP ( 4  I 
DIMENSION  TYDI3.4) .VYD! 5.2 ) 

DIMENSION  PR  <  30  )  , ADENT 1 2 ) .ADNT 1 3  I , VARFOR! 6  » 

DIMENSION  QHTE  <  2 ) ,ODLT I  2 ) »QENS (2) .QEFT12) »QFX ( 2 ) .QTETI2) »JXD(2 ) »QA 
XO ( 2 ) .QAW! 2  »  *QCW<  2  I »QHW ( 2  I . J IC ( 2 ! .OHRP! 2 ) *QERP I  2 ) * JXK ( 2 ) . JLb ( 2 ) »QHT 
X ( 2  I .QHLT ! 2 ) .OHFS ( 2 ) .QDH ( 2  J . ODLST ( 2  >  ,  JPL ! 2 ) , JXSC ! 2 ) . JFA ( 2 ) 

COMMON /EGAP/ IP.LN.IOT.IXT 
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COMMON  PD Y (125. 5) ,DE< 125) ,DRU( 125.41 »DED( 125) »MU<25) ,MD<25) »PY(25) 
X.PXUI25.4) »PXD( 25 .4 ) »A(25l . 0 ( 25 ) .MCT ( 25 ) 

COMMON/PL VD/LUD  *L YD  *SHX .SHY.TG.SXI2) . SY( 2 ) .TT ( 6 ) » XC » YC » AAT 
COMMON/ RYTC/QNS »OHC  »QHA . QHS .OOD 
COMMON/PaOUT/NCT.PFY( 125.6) . JJ.HPl *HP2 
COMMON/VAT/TaV< 1751 ,TAHI (7.175) 

COMMON/DLAT/TALD( 20 ) ,TAFL( 4*7.20) 

COMMON/VV/VF(36»17) 

COMMON/PaRAM/HTe,HRE»D»DLT.DLR«CNS.EFRTH»FREK»ALAM,TET»TeR»K.D»GAO» 

XGAW 

COMMON/S  I GHT/DCW.HCW.DMAX.DML.DZR. I X.EAC.H2. ICC .HFC . PRH.DSL 1 *E I RP . 
XQG1 »0G9  .KK,  »ZH  .RDHF  .  TLR 

COMMON/SC ATPR/HT .HR. ALSC.TWEND. THRFK ,HLT »HLR . THETA .HTP.AA.REW 

COMMON/ D rFPR/HTD*HRD.DH.AED* SIP. DL ST .DLSR . I PL  »KSC .HLD.HRP* AWD.SWP 

COMMON/GAT / IFA 

DATA  (QMD-8H  AUG  73  J 

DATA  (CFK«=. 001.. 0003048. .0003048) 

DATA  (CMK-1 ..  1.609344. 1 .852  > 

DATA  (CFM=1. »  .3048. .3048  I 

DATA  (CKM= 1000. .3280.839895.3280.839895) 

DATA  (CKN=1. . .6213711922  ..5  399568034) 

DATA  (P0L=8H  HOR I 20N • 3HT AL .8H  VERT 1CA . 1HL .8H  CIRCULA.1HR) 

DATA  ( FAT= 10H  I SOTROP I C . 3 ( 1 H  ) .4H  DME.4(1H  1.14H  TACAN  (RTA-2).3(1 
XH  I.39H  4-LOOP  ARRAY  (COSINE  VERTICAL  PATTERN). 39H  8-LOOP  ARRAY  (C 
XOSINE  VERTICAL  PATTERN), 34H  I  OR  II  (COSINE  VERTICAL  PATTERN), 1H  , 
X40HJTAC  TILTED  20  DEG  WITH  40  HALF-POW  B. W. , 17KJTAC  TILTED  8  DEG, 2 
X(  1H  )  ) 

DATA ( T SC= 16H  SEA  WATER  .16H  GOOD  GROUND  »16H  AVERAGE  GROUN 

XD  . 16H  POOR  GROUND  .16H  FRESH  WATER  .16H  CONCRETE  »16H 

X  METALLIC  ) 

DATA  (PAS-2H  ,2H*  ) 

DATA ( VYD-33HF0R  HOURLY  MEDIAN  LEVELS  EXCEEDED . 33HFOR  INSTANTANEOUS 
X  LEVELS  EXCEEDED) 

DATA(TYD«17HSM00TH  EARTH  , 17HI RREGULAR  TERRAIN) 

DAT  A ( CC I  * 16H  SEA  WATER  »16H  GOOD  GROUND  » 16H  AVERAGE  GROUN 

XD  , 16H  POOR  GROUND  »16H  FRESH  WATER  »16H  CONCRETE  »16H 

X  METALLIC  > 

DATA  ( P AS* 1 H  ) 

DATA  ( CM=  1 H  »  ) 

DATA  ( LP=9. 2 .1.3) 

DATA ( APCT -8H  FREE  SP.8H  5  «  ,8H  50  •  »8H  95  •  ) 

FN A ( FX , F A . FB . FC .FD » » ( ( FX-F0  > *  <  FC-FD  * / ( FA-FB » * +FD 
FNB(FRX,FRA.FRBI«(FRX-FRB)/( FRA-FRR) 

FnC(FFX,FFC.FFO)-(FFX«( FFC-FFD) I ♦FFD 
IDT.IDATEI IDX) 

DPI  1 1'.Ol  S  DP ( 2 ) * .50  S  DPI  3 )*«95 

IG«0  S  JJ«0  S  ZO". 00000001  *  ERTH-6370. 

RAD«. 01745329252  S  DEG« 57 . 2957795 1  *  TWDG»12.*RAD 

C  PRE-PROGRAM  INPUT  OF  TABLES 

READ  108.1 TAV( I ) . ( T AH  1 ( J  ,  I  I » J-  1 .7 >  .  I » 1  » 1 75  > 

READ  71,(TALDIX).( (TAFLI I . J ,K ) , J- 1 , 7 ) » I» 1 ,2 > t <• 1 » 20 ) 

READ  71. ( DUMB. (( TAFL(I,J.X),J-1,7) » 1-3*4 ),K« 1,20) 

READ  506,HVF(I.J)»I-1»36I.J-1»3) 

READ  505. ( (VF( I »J) , 1-1.36) »J-4*17) 

C  - PROGRAM  START  WITH  CARD  1 - 

100  READ  9. IS.DMAX.S.LH.LE.SX.XC.SY.YC 
IF ( IS.LE.O)  GO  TO  451 
IXT- I T IMEDAY ( ITX> 

DO  200  J-l.IS 

C  - START  OF  LOOP  FOR  TWO  FACILITIES - 

ICAR-0 


no 


c  - INPUT  OF  CARO  2 - - - 

READ  T.IX.HFI ♦ IFA , IPL .SUR .HPFI .DHS I *K5C *DC I *HCI ♦ ICCiDHOI *HH01 t IDG* 
X  IMN .  I5EC.XE.XK.KD.EIRP.IL8 

C  - - - INPUT  OF  CARO  3 - 


READ  8.ADENT.ADNT.ENO.AOI  »AWI  *F.  I A 

TT ( 1 >*ADENT 1 1  I  i  T T < 2 ) *ADENT ( 2 >  *  TT ( 6>  1 > 

TT  <  3  *  =ADNT ( 1 )  $  TT < A ) «ADNT 1 2 >  S  TT I  9 > » ADNT I  3 » 

CMAX*DMAX 

I F I IS.GT.l )  GO  TO  15 
NX  * A3- ( (31  +  IAI/2I 
ENCODE ( A8 »  799 ♦ VARFOR  > NX 
1A  PRINT  A 

C  - START  OF  PARAMETER  SHEET - 

HFS»HFI*CFKI IK>  A  FREK*F 

PRINT  7O0.OMD* IDT. IXT 
PRINT  VARFOR.ADENT.ADNT 
PRINT  5 
PRINT  701 

IF< J.GT.l  )  GO  TO  820 


C  - INPUT  OF  CARDS  OF  AIRCRAFT  ALTITUDES - 

READ  711*1 ACHT (  I ) *  I »1 »LH ) 

C  - INPUT  OF  ALTITUDE  CORRECTION  FACTORS  IF  SPECIFIED 

IF(JJ.GT.O)  READ  711  * <DEHT< I ) » 1*1 *LH» 

C  - INPUT  OF  CARDS  OF  D/U  RATIOS - 

READ  71 ?  * (PR  I  I  I  * !■ 1 *LE  ) 


820  LL=LH- 1 

IFILH.GT.2A)  GO  To  769 
IF(LH.GT.17>  GO  TO  768 
IFILH.GT.IO*  GO  To  767 
IFILH.GT.  3  >  GO  TO  766 

PRINT  71  A,  I ( ACH1 I  I )  .CM)  .  I-l.LL) * ACHT ( LHl 
770  LL-LE-1 

IF  I L  E.GT • 23  *  GO  TO  721 
IFILE.GT.lo>  GO  TO  720 
PRINT  736.1  <PR(  I  ) .CM)  . 1  =  1 *LCI .PRILE* 

777  PRINT  702. HF I 

IFIHFI  .LT.O.  I  GO  TO  825 
IFIHFI.GT.9000.  )  PRINT  715 
IFIHFI  . L T •  1 .5)  PRINT  716 
PRINT  7(13. FREX 
IFIF.LT.100. IGO  TO  805 
806  IFIF.t. T,?0,  )  GO  TO  100 
IFIF.GT.5000.)  PRINT  718 
IFIF.GT.l 7000. )  GO  TO  807 
808  IFIF.GT.l OOOOO •  )  GO  To  100 
ALAM= .2997925/F 
PRINT  752. S 
PRINT  5 

IF  I AOI .LT.O*  >  GO  TO  56 
PXH-PASI 1 ) 

87  GAO* AO  I  %  GAW*AWI 

PRINT  70A .GAO.PXH.GAW.PXH 
IFISUR. GT. 15000. )  ICAR*  1 
IFISUR.LT.O. >  GO  TO  830 
831  PIRP-FI RP 

FTS«SUR*CFX(  IX) 

HRP*HPF I *CFK <  IX  I 
IFIETS.IT.O. »  FTS.O. 

IFIDHSl.LT.O.)  DHS1*0, 

DH«DHS I #CFX I  IX) 

IFIENO.LT.250..0R.ENO.GT.AOO.  I  GO  TO  801 
802  ENS*CNO»EXPFI-0, 1057»HRP>  , 

NOT  REPRODUCIBLE 


in 


I F ( ENS  »LE »  250  »  >  GO  TO  803 
80*  EFRTH-ERTH/I l.-.04665»EXPF(.005577*ENS)  > 

EART»EFf<TH*CKN<  IK) 

HT-MFS+ETS  S  Hl-HT 

IFIHRP.GT.Hl )  GO  TO  825 

HTE-HT-HRP  $  DLST -SQRTF i 2 . *EFRTH#HTE  ) 

HFR!»HT£*CKM( IK) 

PRINT  705  *HPF I *E IRP  *  I  FAT  I  I » IFA 1 » l *  1 *5  1 
IFIDCI.LE.ZO)  GO  TO  789 
IFIICC.LE.Ol  GO  TO  789 

C  - COUNTERPOISE  PARAMETERS  CONVERTED - 

NOC-1 

DCW-DCI*CFK< IK)  S  KCW»HCI*CFKU<> 

PRINT  ?06*DCi .MCI *(CCI I  I .  ICC > » I»1 .2 > 

IFIHCI iLT.O. )  GO  TO  828 
829  IFIHCI .GT. 500. 1  ICAR-1 
IF  (DCW.GT..1524)  ICAR-1 
IFIHCW.GT.HFS)  GO  TO  825 
HFC-HT-ET  S-HCW 
788  CONTINUE 

PRINT  707.IPOLI t»IPL »# I«l*2> 

C  '  - HORIZON  AND  INITIAL  TAKE-OFF  ANGLE  COMPUTATIONS - 

PDS*PTS«PHS-PAS< 1 1 
IFIKO.LE.l »  GO  TO  755 

HLT»HHOI*CFK( IK>  S  DLT»DHOI*CMK I  IK) 

HLTS-HLT-HT 

DG= I DG  *  AMN=IMN  $  SEC* ISEC 

TET-RAD#(DG+( I ISEC/60. )+AMN»Z60. I )  $  ATET-ABSFI TET ) 

tatet»tanfi tet  ) 

IFIKF.EO.3l  GO  TO  782 
IFI0LT.LE.20)  GO  TO  781 
759  IFIKE-l 1 730*758.780 
758  IFI TET.LT.O.  )  GO  TO  752 

HLT5»DLT*TATET+<DLT*DLT/<2.*EFRTH> ) 

753  HLT-HLTS  +  HFS  +  ETS  S  HHOI -HL  T*CKM I  IK ) 

PHS-PASI 2 ) 

783  CONTINUE 

IFIDLT.LT. I. 1#0LST). OR. OLT.GT. (3, #0LST)1  PRINT  809 
IFI TET. GT., 20943951 )  PRINT  810 
IFIHHOI. GT. 15000. >  ICAR-1 

PRINT  708.DHOI *PDS* IDG • IMN » I  SEC  »PTS  »HHOI »PH5 


PRINT  725  *  I TVDI I»KD)*!*1 *3* 

PRINT  7o9.ENS.ENO 

IF  1 1  LB .GT .0 )  GO  TO  762 

PRINT  778 

763  PRINT  710.SUP.DHSI.ITSCI I.KSCJ.l-1.2) 
PRINT  7?9.(VYD(  I.KK),I«1.5* 

PRINT  7?4 .PAS  I  2  ) 

IF  1 1CAR.GT.0 )  PRINT  800 

C  - START  OF  WORK  SHEET 


PR 

I  NT 

4 

PR 

INT 

757.IDT.IXT.OMD 

PR 

INT 

5  $  PRINT  6 

PR 

INT 

VARFOR.AOtNT.ADNT 

PR 

INT 

701  »S 

PR 

INT 

732  »HF I  .HP S 

PR 

INT 

733  .F.FREK 

PR 

INT 

734. AOI .GAO.PXH 

PR 

INT 

735.AWI .GAW.PXH 

PR 

INT 

737.FIRP.EIRP 

PR 

INT 

738 »  IFA. < FAT  II »IFA> .1*1.5) 
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IFINOC.LT.l >  GO  TO  754 

PRINT  739.DCt.DCW 

PRINT  740.HCI.HCW 

PRINT  741 . ICC* <CCI I  I . ICC) *  1*1 ,2 » 

754  CONTINUE 
PRINT  5 

PRINT  742.HFRI.HTF 
PRINT  743  *  I  PL  *  *  POL ( I  *  I  PL ) *  I ■ 1 ♦ 2  I 
771  PRINT  745.PDS.DHOI *DLT 

PRINT  746.PTS. IDG, IMN. ISEC.TET 
PRINT  747.PHS.HH0I »HLT 
PRINT  7<*fl  .TNO.^N? 

PRINT  726. E ART  .EFRTH 

PRINT  749.SUR.ETS 

PRINT  750.DHSI.DH 

PRINT  751,KSC.(TSC(I.KSC».I'1.2» 

I F ( IlB.GT.O )  GO  To  764 
PRINT  784 

765  PRINT  729,1 VYDI  I.KK)  ,1-1  ,3 > 

PRINT  724 .PAS  1 2  I 

IF< ICAR.GT.O  )  PRINT  800 

C  - E ND  OF  PRELIMINARY  PRINTING - - 

IF< IS.LF.l I  GO  TO  201 

OAW ( J ) *GAW  *  QCw ( J ) =DCW  $  OHWIJI'HCW  5  JIC(J)*ICC 

OHRP(J|=HRP  *  QERP(J)=EIRP  *  JKK  ( J )  =KIC  S  JLB(J)=1LB 

OHT(J)  =  HT  $  QHL  T ( J ) =HL  T  $  OHFS(J)«HFS  S  QDH ( J > »DH 

OHTE ( J I *HTE  S  QDLT I J ) =DLT  S  QENS(J)*ENS  *  QFK(J)=F 

OEFTI JI*EFRTH  %  OTET  ( J I =TET  S  JKD(J>*KD  S  OAOlJl-GAO 

QDLSTI  J)«DLST  S  JPL(J)*IPL  i  JKSC  I  J )  *|CSC  t  JFA(J)*IFA 

OHFC*HFC 

200  CONTINUE 

C  - ENO  OF  LOOP  FOR  TWO  FACILITIES - 

201  PRINT  4 

CALL  PAGE ( - 1 ) 

ENCODE  (fl.32.TCil  S 

I F I L  E  =  0 

MH*0 

DO  60  LD= 1 ,LH 
HAI»ACHT(LP) 

H2-HA  I  »CF(C  (IK) 

IF  ILE-  IFILE+I 
IF ( I S.GT. 1  I  GO  TO  202 
206  CONTINUE 

IF( JJ.UT.l I  GO  TO  63 
ALAM*. 2997925/F 
PDH-PASI 1  ) 

EAC«DEHT( LD) *CEK (IK  I 
HR-H2-FAC 

HRE»HR-HRP  S  OLSR* SQRTF ( 2 , «HRE*FFRTH > 

HAS-H2-ETS  S  HRS-HR-ETS  %  HRE*HR-HRP 
IFIHRE.GE.50. )  DLSR*EFRTH*ACOSF ( EFRTH/ ( EFR TH+HRE I ) 
DSO*3«*SQRTF(2000.*HTE) ♦3»*S0R  TF(2000.*HRE) 

64  CONTINUE 

r  - - - - PRINT  STATEMENTS - 

PRINT  796*  HAI .DEHT(LP) ,PDH  $  CALL  PAGE  I  1 > 

c  - 


C  - OBTAINING  ISOTROPIC  POWER  ARRAY 

CALL  PWSRB 

C  - PRINT  STATEMENTS - 


PRINT  900* ( (PFY(LA.LB) »LB*1 .6 ) .LA* 1 ,NCT I 
PRINT  5 
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MCK-NCT/2  *  CALL  PAGEIMCKI 


IF( IS.GT.l )  GO  TO  JC 
203  NCD-NCT 

00  24  LA* 1 tNCD 
DE(LA>«PFY(LA.l > 

00  29  LB-2.6 
LC-LB-1 

PDY<LA.LC>-PFY(LA,LB> 

29  CONTINUE 
24  CONTINUE 

IFIIS.LE.il  GO  TO  27 

J*2  S  ASSIGN  27  TO  JC  S  GO  TO  205 
27  CONTINUE 


C  - PRINT  STATEMENTS— - - - 

PRINT  791  *  PRINT  792  S  CALL  PAGE ( 2 1 

C  - 

C  - - - CALCULATION  OF  D/U  RATIOS - 

JCT  *  0 

DO  26  N= 1 tNCD 
DD=>DE ( N  * 

DA ( 1 1 *PDY ( N  *  3  I  S  DA ( 2 ) *PDY ( N  »4 )  S  DA  I  3  I *PDY I N 1 3  I 

DU=  S-DE ( N I  S  IFIDU.lT.O.!  GO  TO  25 

DO  20  I-lftNCT 


I F ( DU-PF Y (  III  I  )  22 1  2 1 *20 

20  CONTINUE 
I-NCT 

22  IFd.LE.ll  1-2 
L-I-l 

DRAT*FNB(DUtPFYII.lltPFY(Ltl)  > 

UFS«FNC(nRAT.PFY(  I  .2  )  .PFYU.2  I)  S  UPW-FNC  (  DRAT  t  PFY I  I  .3  )  .PFY(L  .3  )  ) 
UV5-FNC(0RAT.PFY( I.4).PFY<L.4»1  $  U50-FNC I  DRAT t PFY ( 1 1 5 ) |PFY! L .5 ) I 

U95-FNC(DRAT,PFY( I ,6» .PFY(Li6) I  S  GOTO  28 

21  UFS-PF Y (  1 1 2  I  i  UPW*PF Y  d  »  3  I  S  UV5*PFY(It4> 

U50*PFY (  I  .5  I  S  U95*PF Y ( I 1 6 ) 

28  CONTINUE 
JCT-JCT+1 

DRU(JCT.l)  -PDYIN.l t-UFS  $  REFV-PDYIN.2 l-UPW 
OB  < 1 > *UV3  *  DB I  2  I -U50  s  0BI3I-U95 

CALL  CONLUT(DA.DB.DP.3t-1..0. .PC.DC> 

DRU ( JCT .2  I  -REFV+DC  < 1 >  *  DRU(JCT.3>  *REFV+DC<2> 

DRU ( JCT  .4  I  -REFV+DC I  3  I 

c  - print  statements - 

PRINT  790.S.DD.DU.PDY IN.1).UFS.PDY(N.2) . UPW. ( DRU I JCT .K )  .  K-1.41 

DEDI JCTI-DD 
CALL  PAGE  1 1 > 


26  CONTINUE 
23  CONTINUE 

C  - WRITING  FILES  ON  DISK 

mctildi-jct 

WR l T E ( 2  I  IFILE.ACHTILDI .MCTILD» 

KCT*MCT(LDl 

DO  73  KE*1.KCT 

WRITE  (21  DEDlKE) . ( (DRUIKE.JL I ) . JL-1  .4) 
73  CONTINUE 
END  EILF  2 


MH-MH+1 

PRINT  3  *  CALL  PAGE! 1  I 

60  continue 

c  - end  OF  AIRCRAFT  ALTITUDE  LOOP 
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DO  40  M*1 *L£ 

LYD=0  S  LUD-+1 
IG» IG+1 

ENCOD£(8*32*AAT)  PRIM) 


C  - - - PLOTTING  OF  GRAPH - 

CALL  PLTVOL 

C  - VALUES  PUT  INTO  PLOTTING  ARRAY — 

DO  41  JL  *  1 *4 
DO  65  1*1. LH 


MU(  I  )  =  M0 (  I  )*0 
65  CONTINUE 
IF  ILF  =  0 
REWIND  2 
DO  62  1*1 *LH 
IF  I LES I F I LE  +  1 
READ  (2)  KFILE.BCHT.LCT 
IF(KFILE.NE.IFILE)  GO  TO  100 
DO  74  JE-l.LCT 

READ  I  2  >  DEDI JE) . I IDRUl JE.JO) ) . JG»1 .4 > 

74  CONTINUE 
SKIPFILE  2 
JCT-LCT 

DO  42  JK  =  3 • JC  T 
JM* JK-1 

IF (PRIM) .GE.DRUI JK.JL)  .AND. PRIM) <LE.DRUIJM.JD )  GO  TO  43 

IFIPRIMI.LE.DRUIJK.JL)  . AND. PR <M I . GE .DRU ( JM, JL ) I  GO  TO  44 

42  CONTINUE 

62  continue 
61  LS=LP I JL ) 

DO  66  KC*  1  *  4 
J«0 

DO  67  1*1 ,LH 

IFtMDI  D.LT.KC)  GO  TO  67 

I F I PY I  I  I .GT.SY < 1 1 »OR.PXD< I *KC ) .LT .SX 1 2  > )  GO  TO  67 
IF(PYir).LT.SVC2».0R.PXDI 1 .KCI.GT.SXI  1 ) )  GO  TO  67 
J*J  +  1  t  B  ( J  )*PY ( I )  $  A  (  J I  »PXD(  I  .ICC I 

67  CONTINUE 
IF(J)  68.66 

C  - PRINT  STATEMENTS - 

68  PRINT  7)3. PRIM) .APCTIJL ).( (AINN) .BINNH »NN»1.J) 

PRINT  5 

NPG* I J/6 I +2  *  CALL  PAGE! NPG) 


IF ( J.L  T.2  )  GO  TO  66 

CALL  LINFILS.A.B.J.SHX.5HY ) 

66  CONT INUF 

DO  69  ICC*  1 .4 
J  *0 

DO  70  1*1  .LH 
I F I MU I ! I .LT.KC)  GO  TO  70 

IF(PY( I )«  GT.SY I 1 ).OR.PXU( I .KCl.LT.SXI2))  GO  TO  70 
IFIPYI  I  I  ,LT.SY(2  >  .OR.PXUI  I.KO.GT.SXI  III  GO  TO  70 
J*J  +  1  t  B ( J I *P Y ( I  I  $  A( JI*PXU( I.KC) 

70  CONTINUE 
I F ( J )  72.69 

C  - PRINT  STATEMENTS - 

72  PRINT  713. PRIM). APCT I JL > » H A I NN I . B I NN > > »NN« 1 » J > 
PRINT  5 

NPG*( J/6 ) +2  *  CALL  PAGE  I NPG ) 

IFIJ.LT. 2)  GO  TO  69 

CALL  LINE! L S. A »B » J.SHX . SHY ) 

69  CONTINUE 
41  CONTINUE 

C  - END  OF  GRAPH - 


115 


PRINT  5  S  PRINT  5  *  CALL  PAGE! 2 ( 

40  CONTINUE 
REWIND  7. 

GO  TO  100 

C - LOOPING  BACK  TO  START  FOR  NEW  SET  OF  PARAMETERS - 

43  MU ( It-MUI 1 1+1 
KC  =  MU<  I I 

IFIKC.GT.4)  GO  TO  61 

XRD*FNA( PR i M ) .DRU(JM.JL) .DRU(JK»JL> .DEDUM  >  tDEDI  JK  > ) 

PV(H-ACHTCI)  S  PXU(  I  »KC  )»XRD 
GO  To  42 

44  MD( I  I *MD<  I  >  +  l 
KC=MO(  I  ) 

IF(KC.GT.4»  GO  TO  61 

XRO“FNA(PR(M)  »ORU< JM.JL)  «DRU  (  JK  ♦  JL »  iDED<  JM »  *OED(  JK )  I 
PYI I >«ACHT( I »  S  PXD< I*KC»«XRD 
GO  TO  42 

15  IF(J.GT.l)  GO  TO  16 
NK«43-I(19+IA)/2> 

ENCODE (48. T9? »VARFOR>NK 
GO  TO  14 

16  NK*43-( (20+IA1/2) 

ENCODE <48. 798. VARFOR>NK 
GO  TO  14 

53  HRE=(DLSR*DLSRI/(2.*EFRTH)  *  GO  TO  54 


56  CALL  ASORP ( F  t  AOI » AW  I  I 

PXH*PAS( 2  I  S  GO  TO  57 

C  - CALCULATION  OF  RAY  BENDING - 

63  HP2*H2-HRP  S  HP1«HTE 

DUM  -  0  •  0  *  ZER»0.0  S  OL1M—1.56 

QNS'329.  *  OHC'HPl  S  QHA-HP2  S  OHS-HRP 

CALL  RAYTRACIDUMi 
RY-TRACRAY(OLIM) 

DSO<=QOD 

ONS'ENS  i  QHC-ZER  S  0MA-HP2  $  QHS-HRP 

CALL  RAYTRACIDUMl 
RY*TRACRAY<7.ER  I 

DLSRbQQD  i  TSL2-DLSR/EFRTH 
IFITSL2.LE..1 )  GO  TO  53 


R2E«EERIH/COSF(TSL2l 
HRE-R2E-EFRTH 
54  IFIHRE.GT.HP2 1  HRE-HP2 
HR»HRE+HRP 
EACH2-HRP-HRE 
HAS-H2-ETS  *  HRS-HR-ETS 

DEHTIL0)-EAC*C  IK  I  $  PDH»PAS<2)  »  GO  TO  64 


107  PRINT  106  *  GO  TO  100 

C  - TWO  FACILITY  CALCULATIONS - 

202  >1  *  ASSIGN  203  TO  JC 

205  HTE-QHTEIJI  *  DLT-QDLT(j)  S  ENS-UENSIJI  *  F-OFKIJ) 

EFRTH.OEFTI  J)  *  TET-QTETU)  *  KD«JKD(J)  *  GAO-OAOIJI 

GAW-0AWIJ1  *  DCWrOCW(J)  »  MCW«OHW(JI  *  ICC-JIC(J) 

HRP*OMRP ( J )  *  EIRP-QERP(J)  *  KK-JKKC'I  S  |LB-JLB{J> 

HT«OHT I J I  S  HLT<<JHLT<JI  I  MFS»QHPS(J>  I  DH'QOHIJ) 

DLST<<JDLST<  Jl  *  I  PL ■ JPL I  J I  *  KSC-JKSCIJI  *  IFA-JFAUI 

FREK.F 
GO  TO  206 
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C  - -  - - MAH  r  OF  PARAMETER  SHEET  PRINTING - 

T#0  PRINT  7»R.HPRI|l,CMl.l*l*LU.PRtLE>  S  GO  TO  777 

TjM  P'*INT  7*1 » t IPRI  II. CM). 1*1. LL>* PRICE*  6  GO  TO  777 

762  PRINT  779  I  GO  TO  76 J 

76*  PRINT  706  %  GO  TO  763 

766  PRINT  7  7?  » l< ACHT I | I ,CM) . 1*1 .LL I .ACHTILHl  S  GO  TO  770 

767  PRINT  77*. It ACHT I 1 1 tCMl *  1-1 iLLI *ACHTILHl  S  GO  TO  770 

76*  PRINT  7  T*  «  M  ACHT ( 1 1 .CM  I » I • l »LL I « ACHT  t  LH*  6  GO  TO  770 

76«  PRINT  776*1  1  ACHT  I 1 1 .CM *  » I • 1 *LL I » ACHT ( CHI  S  GO  TO  770 

C  - - —HORIZON  PARAMETER  CALCULATIONS - - - 

7«1  HE  *MAX IF  I  HTE  * *006  I 

OL T«OLST»C*PF I -.07»SQR TF ( OH/HE >  I 
•OS-PASIJ  I 

IF  (OUT  ,LT  .1  ,1  »0LST>  )  OL  T»  .  1  »Ot.ST 
IF  I  Pi  T.GT.I  I.xPcSH  I  olt»j**dlst 
PHf>|*IH.T»CKN(  IKI 
GO  TO  7*9 

730  TRM«|,1«0H»I IDLST/OL  T  »-l .1 
T  C  T  » I  • X/PL  ST  I • ( T RM- (*«»HIE  >  > 

IT  I  Ht  .GT.TWOGI  TET.IWOG 
CALL  RAPT MS  I T  E  T  *  IDG* IMN  *SEC I 

i r»r c -*  intfisfci 

PVS.PASI?  I 
TATFT.TANrt  tc t  I 
GO  10  7X8 

762  MtRM.SURTFI I EFR TH»EFR T H» T A T F T * T A TE T U I  2 . *EFRTH*HL TS ) I 
VIRM.-EFRTHMATET  s  DLT-YTRM-XTRM 

IF  10LT  .LE.O.  •  0L  I  »YTHM*-X  TRM 
PDS *PAM  j  ) 

OHO  I »0L  T  »CKN I  I K )  $  GO  To  703 

700  TATFT«(hLTS/I)LTI-IDLT/I2.«EFRTH»  »  $  TET*ATANF<  TATET) 

PTS-PASI ?  I 

T0*  CAU.  RAprMSITFT.lnG.IMN. SEC* 

ISFC *X INTFI Src  I  $  GO  TO  703 

C  - SMOOTH  EARTH  PARAMETERS - 

7X3  PTS*P0S*PAS(2  I 

PLT-PLST  »  OHO | »0L T*CKN I  IF  I 

TATET* I "HTE/OLT l-l OLT/ I  2. »EFRTHI »  S  TET»ATANF( TATET ) 

HI T  »MRP  S  HHOI*HLT»CKMI  JK >  S  DH*0, 

GO  TO  70* 

7X2  HLTS*PLT»TET  +  < PC T«DL T / 1 2 . *EFR TH >  *  *  GO  TO  753 

709  HFC-O.  f  GO  TO  708 

001  ICAR* l  $  ENO* 30 l •  S  GO  TO  002 

603  ENX-2X0.  *  1CAR.1  *  GO  TO  00* 

80S  I  CAR  *  1  *  PRINT  717  t  GO  TO  806 

007  ICAR* 1  *  PRINT  719  *  GO  TO  808 

0?X  PRINT  000  t  GO  TO  100 


8?6  I  CAR  *  1  $  HCI*0.  $  GO  TO  029 

6X0  I  CAR • 1  S  SUR-O.  S  GO  TO  831 

C  - TERMINATION  OF  PROGRAM- 


*51  CONTINUE 

CALL  CRTPLTIO* 0.0. 0.201 
PRINT  * 

PRINT  2 
CALL  EXIT 
END 


not  reproducible 
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B.4  SUBPROGRAMS  AND  TABLES 

Subprograms  used  In  POWAV,  DOVERU,  and  SRVVOLM  are  listed  In 
section  B.4.1 .  Tables  used  as  Input  data  for  all  three  programs  are 
tabulated  In  section  B.4. 2. 


B.4.1  Subprograms 

Subprograms  (functions  and  subroutines)  used  In  POWAV  (sec.  B.l), 
DOVERU  (sec.  B.2)  and  SRVVOLM  (sec.  B.3)  are  listed  alphabetically  by 
name  In  this  section.  Each  listing  Is  preceded  by  a  short  discussion 
and  contains  some  annotation.  Listing  for  system  functions  (e.g.,  SINF, 
COSF,  etc.)  and  system  subroutines  (e.g.,  CRTPLT)  are  not  Included 
since  they  are  available  to  system  users,  and  do  not  have  to  be  submitted 
with  the  programs. 
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ALOS 


Subroutine  ALOS  is  used  only  with  the  power  density  program  (sec. 
B.l)  to  perform  calculations  associated  with  the  line-of-sight  region 
(sec.  A. 4. 2).  Subroutines  BLOS  and  CLOS  are  almost  identical  with  ALOS, 
but  are  used  with  other  programs. 


SUBROUTINE  ALOS 


DIMENS ION 
DIMENS  ION 
DIMENS  ION 
DIMENSION 
DIMENSION 
DIMENS  Ion 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 


C  L-O-S  SUBROUTINE  FOR  POWAV 

C  ROUTINE  FOR  MODEL  AUG  73 

5  FORMAT ( 1 H  ) 

760  FORMAT! IX . F7 . 2 , 1 2F8 . 1 . F6 . 1 ,2F5 . 1 . 2F6 . I ) 

766  FORMAT <2X.*D  N  MI  FREE  SPACE  50%  5$  95%  90%  99% 

X  99.9%  99.99%  .01%  .1%  1%  10%  PL  AA  AY 

X  K  DEE* I 

XCON ( 5 • »NTM ( 5 ) 

CFk  I  3  )  »CMK ( 3 ) »CFMl 3  I «CKM( 3  )  tCKNI 3 > 

GLD ( 8 ) .01 1  200  I ♦02(200). 03 (200) 

HTX  <  2 ) • Z ( 2 • ♦ TEA  <  2 ) *DA<2>,HPR<2» 

S I D  (  2  A  ) 

SPGRD ( 3  > 

RE ( 2 ) ,BD ( 35 ) .VDI35) 

ALM ( 17 ) ,AD( 35  I 

P<35 ) .QC(50) «QA(50) »PQA  <  50 ) »PQK I  50 ) »QK( 50 ) .PQC(5o) 

YV( 10) »SV(10) 

COMMON/ EGAP/ I P  »LN» IDT  t IXT 

COMMON/PARAM/HTE.HRE.D.DLT.DLR.ENS.EFRTH.FREIC.ALAM.TET .TEH.XD.GAO. 
XGAW 

COMMON/D  I FPR/MT  .UR  »DH . AED. SLP «OLST  ,DLSR . I  PL »KSC . MLT .MRP » AWD »5WP 
COMMON/S IGHT/DCW. HCW. DMAX.DML.DZR. IK. EAC.H2. ICC. MFC. PRH. DSL 1.PIRP. 
X0G1 .QG9.PEY1200.4) .KK .ZH.RDHK . I  LB 
C0MMON/PLTD/LUD.LL.NU(8 ) . NS ( 8 1 »SX ( 2 ) .SY ( 2 ) » TT ( 6 ) . XC. YC »QX < 200 .8 ) »B 
XY(200.8) .LYD.AAT.TG 

COMMON/ SPL I T/Ll »L2 ,N»X 1 140 ) > Y ( 140 ) ,D6 ( 140 ) ,XS 1 55 ) ,XD( 5$ ) »XR ( 55 ) , YS 
X(55) .YD(55).YR(55) .L3.ZS(25) .ZD(25) .ZR<25) 

DATA  ( CFK =.001 » .0003040 , .0003048 ) 

DATA  ( <P<  D  .1*1, 35)  =  .0000 1  .. 00002,. 00005,. 000 1 , .0002 , .0005 , .001 . . 

X002..0°5,.°l ,.02,.°S,,l0f .15,,20,.3o..A0,.50,.60,.70,.80».85,.90,. 
X95..98  >.99,. 995,, 998,. 999,. 9995,. 9998 ,.9999,, 99995,. 99998.. 99999) 
DATA  (CMK=»1,  »1  .609344. 1 ,852  ) 

DATA  (CFM «=1»,, 304 R», 2048) 

DATA  ( CKM=  1000. .3280.8  39895.328  0.8  3  9895) 

DATA  ( CKN=1 .  ,  .6213711922. .5  399568034  I 
0ATA(XCON«l • *5. .10. ,25. ,0.) 

DATA (NTMn 10,19,30.10.0) 

DATA  <GLD“0. ..1 . .2 . . 3 , .4 . , 5 , . 75 .1, ) 

DATA! ALM«-6.2 • -6 • 15 . -6 .08 »-6 ,0 »-5 , 95 , -5 • 88 , -5 .8 »-5 ,65. -5, 35 ,-5 ,0,- 
X4.5.-3.7) 

DATA  ( SPGRD*0»  « ,06. .1 ) 

DATA  I  SID*. 2,. 9.. 7.1.. 1,2, 1,5, 1,7. 2.. 2,5. 3. ,3. 5.4, ,5. ,6,. 7,.8», 10. 

X, 20. ,4 5. ,70. ,80, ,85,, 88. ,89.) 

COMPLEX  AT1.AT2 
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FN  A  i  FX  .  FA  *  FB .  FC  .FD  >  ■  ( I  FX-FB  >'  *  I FC-FD  >  / 1  FA-FB » >  +FD 
BSPI«. 3183098862 

RAD«. 01745329252  S  DEG«57. 29577951  S  TWDG«12.»RA0 

ALIM-3. 

PI *3*141592654  $  TWPI-6. 283185307 

F-FREK 

PI2-1. 570796327  $  CPI2-1.56 

DXAX»DMAX*CMXl IXI 

AFP*32. 45+20. *ALOGlO(FREK> 

ALA2-AL AM/2» 

ASPA-0.25  S  ASPB»0.25 
ASPC«ASPA*ASPB* (6.E-8 > *F 
twpila*twpi/alam 

DTRO-ALAM/6. 

ERTH  -6370. 

AO-ERTH  *  EFN«EFRTH 
PXL ■ ( ( 3,*PI »/lALAMJ ) 

NCT  «0 
NOC  *0 
PRINT  766 
. CALL  PAGE! 1 > 

IF  I  ICC  »GT .0  *  NOC»l 
CDRK*20.95841232*F 
IFINOC.LF.O1  GO  TO  502 

RCW»0CW*.5  *  BTC-ATANFIHFC/RCW) 

ABTC«ABSF(BTC)  S  R1C-RCW/COSFIBTCI  *  S0VT-SQRTFI2.*R1C/ALAM) 
HDI-HTE-HFC  S  TWHC-2.#HFC 

503  CONTINUE 
tl«L2»N«0 
TWHT*2  »*HTE 

C  - SETTING  UP  OF  TABLE  OF  SI  *  DELTA  R  AND  DISTANCE - 

LE“7  $  1FIILB.GT.O)  LE"11 
DO  61  LX-l.LE 
IFILX.LT. 4)  GO  TO  120 

LB-13-LX  *  GRD«FLOATFf!LOl  S  APDR-A..AM/GRC 

121  1 F ( APDR.LE .0 . )  GO  TO  122 
IF(APDR.GT.TWHT)  GO  TO  21 
Sl-ASINFI APDR/TWHT I 
ASSIGN  65  TO  XR  S  GO  TO  66 
65  11*11+1  %  XSILl 1"SI  'S  XDIL1»«0R 

XRIL1)«D 

IFIAPDR.LE.O.)  GO  TO  122 
SI-SORTFt APDR/I2.#DLST) I 
IFISI.GT.PI2)  SI-PI2 
ASSIGN  123  TO  XR  %  GO  TO  66 
123  L2=L2+1  S  YS( L2 ) *S I  S  YD(L2>«DR 

YR ( L2  *  *0 
61  CONTINUE 
21  CONTINUE 

IF(ILB.LE.0»  GO  TO  162 
DO  150  LA* 1  *  10 
GND.FLOATFILA) 

DO  151  lG«1*4 

GO  TO  I155*156»157»156I*  LG 


155 

GRD* 1 4  »*GND- 1 . )/4. 

s 

GO 

TO 

159 

156 

GRD-GND 

s 

GO 

TO 

159 

157 

GRD* ( 4. *GND+1 . )/4. 

s 

GO 

TO 

159 

158 

GRD*<?.*GND+1 .1/2. 

$ 

GO 

TO 

159 

159 

apdr«grd*alam 

IFIAPDR.GT.TWHT)  GO 

TO  162 

SI-AS1NFI APDR/TWHTI 

IFISI.GT.PI2)  SI«P12 

ASSIGN  15?  TO  XR  »  GO  TO  66 
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S  XR( LI »-D 


\ 

I 


152  L 1 *L 1 +1  S  XS(L1)-S1  *  X0(L1*»0R 

Sl-SQRTFI APDR/<2.*DLST * > 

A5SIGN  153  TO  KR  $  GO  TO  66 

153  L2-L2+1  i  YS<L2)«SI  S  YD<L2>«DR  *  YR(L2>®0 

151  CONTINUE 

150  CONTINUE 

162  L3«0 

DO  67  LX* 1 • 24 

s:«sid(lx)*rad 

ASSIGN  J 24  TO  XR  $  GO  TO  66 
124  L3-L3+1  *  ZSIL3I-SI  S  ZD(t.3>-DR 

ZRIL3  )-0 
67  CONTINUE 
SI -PI  2 

L3-L3+1  V.  ZS(  i.3 )  -S  l  S  ZD(L3>-TWHT  S  ZRIL3I-0. 

CALL  TABlEIDUMJ 

c  - USING  TABLE  TO  OBTAIN  STRATIGIC  DISTANCE  POINTS - 

LR-0 

DO  70  LA-l.LE 
IE(LA,LT.4)  GO  TO  88 

LB-13-LA  $  GRD-FLOATF ( LB  I  S  DR-ALAM/GRD  *  LD-LDAl 
IF(DR.GT.TWHT)  GO  TO  25 
86  CONTINUE 

D-DINTERIOR) 

ifid.gt.dml*  GO  TO  70 
LR-LR+1  $  DllLRl-D 
70  CONTINUE 
25  CONTINUE 

IF( ILB.LE.O)  GO  TO  163 
DO  172  LA= 1*10 
GND-FLOATFI LA  I 
DO  173  LG-1.4 

GO  TO  (165.166.167.168).  LG 

165  GRD=f4.*0ND-l.)/4.  S  GO  TO  169 

166  GRD-GND  S  GO  TO  169 

167  GRD*(4.*GND+l.»/4.  S  GO  TO  169 

168  GRD=(2.*GND+l.)/2.  *  GO  TO  169 

169  DR=GRD*ALAM 
IF(DR.GT.TWHT)  GO  TO  163 
D-DINTER(OR) 

IFIO.GT.OML*  GO  TO  172 
LR=LR+ 1  $  0KLR)-0 

173  CONTINUE 
172  CONTINUE 

163  CONTINUE 
IFILRU54.164 

154  D-D l ( LR*  *  SILIM-SINTER(D) 

DO  11  LA-l.LR 

LV-LR+l-LA 
11  D3(LA)«D1 (LV) 

D2  < 1 ) -DZR 

CALL  TSM£SH(D2.1.03.LR»D1*L5> 

160  LR-0 
SPD-.l 

DO  800  NSP-1.5 
MZS-NTM I NSP  * 

IFIMZS.LE.O)  GO  TO  107 
DO  801  MXS-l.MZS 
D- SPD*CMX ( IX) 

IF(D.GT,DNL)  GO  TO  107 
LR-LR+1  *  03 ( LR ) -D 

803  SPI  '  SPD+XCON  (  NSP  I 
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801  continue 

SPD-SPD-XCONINSP) 

NPP=N5P+1 

IFINPP.GT.5l  GO  TO  107 
I F  < XCONlNPP* .EQ.O. >  GO  TO  107 
IFtNPP.EO.Ol  GO  TO  107 
1XD»INTF( SPD/XC0NlNPP»  > 

SPD* I XCON INPP ) *FLOAT  FI I X  D 1 ) +XCON ( NPP  ) 

800  CONTINUF 
107  CONTINUE 

CALL  T SMESHI 01 »L5  »D3  »LR  .02  »LX ) 

IFINOC.LE.O*  GO  TO  75 

C  - CALCULATION  OF  COUNTERPOISE  STRATIGIC  POINTS - 

LR-0 

DO  600  LK*1 *13 
IFILK.LT. 9)  GO  TO  601 
FLK«LK-8 
00  603  LG* 1*4 
FLG-LG 

GND*t  <4.«FLKUFLG>/4. 

602  APDR*GND*ALAM 

IF ( APDR.GT.TWHC)  GO  TO  29 
SlrASINFI  APDR/TWHC) 

ICPT*1 

ASSIGN  40  TO  KR  S  GO  TO  66 
40  CONTINUE 

IFIO.GT.DMLl  GO  To  604 

LR*LR+1 

03(LRl*D 

604  IFILK.LT.9)  GO  TO  600 

603  CONTINUF 
600  CONTINUE 

29  CONTINUE 

CLIM“D3(LR>  *  CCIM-D3U) 

DO  69  1*1. LR 
LV*LR+ 1-  l 
69  OKI  UD3ILVI 

CALL  TSMESH(D1.LR.02.LX,D3.LKI 
134  DO  129  LV»1 *LK 
ICPT  *0 

13  SI-5INTERID3ILV) » 

ASSIGN  28  TO  KR 

C  - RAY  OPTICS  GEOMETRY - 

66  CSS  I «COSF ( S I  I 

SNS I »$ I NF ( S I )  S  S I SQ*SNS I *SN5 I 

AKO«£Fn/AO  *  ZE»I1./AK0>-1.  5  AKE»1 •/ ( 1 .♦ I ZE*CSSI > ) 

AEFT*AO#AKE  *  DHE*EAC*(A<E-1.»/(A<0-1.» 

HTX< 1 l*HTE  S  HL-H2-DME  5  HTX 1 2  )»HL-HRP  S  HCL-HL*CKMI IK> 

I F ( ICPT.GT.O)  GO  TO  77 

a-aeft 
78  CONTINUE 

DO  62  LC* 1.2 

Z(LC>*A+HTX<LCI  S  TEA(LC>»ACOSFI A*CSSI/Z(LC) )-si 
OA(LC)«ZILC)*SINF(TEA(LC)  ) 

IFISI.GT.1.56)  go  TO  63 
HPR(lO*DA(LO»TANF(SI  > 

62  CONTINUE 

0TX*ARSFIZU>-Z<2)  ) 

IFISI.GT.CPI2)  GO  TO  64 

AFA*ATANFUHPR!2»-HPR(  1)  l/(0A<l)+DA(2)  »  > 

RO* ( DAI  1 1+DAI 2 ) 1/COSFI AFA)  S  Rl 2« I DA« 1 > +DA ( 2 ) ) ZCSS I 
IFIRO.LT.DTX)  RO«DTX 


68  CA«AFA-TEA( 1)  S  TH»T£A( 1 )+TEA(2 • 

DR«  4. *HPR ( 1 > *HPR *  2  > / C RO+R 1 2 » 

BA»CA 
CD*CA*OEG 
D-AEFT#TH 
IFIO.LT.O. •  D-O. 

DNM-D*CKN< !K> 

GO  TO  KR. (65.28.123.132  *  133 ♦ 124 #40  *  132 « 153  I  - 


C 


28  IFID.LT.0.01 >  GO  TO  129 
1F(D.GT.DML>  GO  TO  111 
ALFS-AFP+20**AL0G10(R0) 

PF5“PIRP-ALFS 

GOD-GAIN(CA) 

GPD-20.*ALOG10(GOD) 

Z3«2(2)-Z(l  I 
Z4»(Z(1>*C0SF<BA>)/Z<2> 

IF(DH.LE.O.>  GO  TO  42 

DHD«DH*< 1.-<0.8»EXPF(-0.02*D)  >1*1000. 

44  CALL  SORBIZU  > . Z ( 2 ) . A .RO .BA . RE > 

AA«GAO*RE ( 1 >  +GAW*RE ( 2 • 

51  IF  < IlB.GT.O.AND.SI.LE.SILIM)  GO  TO  35 
I F (  DR.GE.ALA2»  GO  TO  34 
IF  I  DR.LE.DTRO)  GO  To  26 
FDR*=(  1  .1-(0»9»C0SF(PKL*(  DR-DTRO)  »  )  )«.5 
43  CONTINUE 

CALL  RECC(SI.F.KSC.IPL.O.OHD.R.PIC.RD) 

GA«- ( TEA! 1 ) +S I  )  $  GAMD»GA*DEG  S  GOG-GAINIGAI 

RDG=RD*GOG 

REC-0.0 

REG«R#GOG 

RLG-REG 

IF ( NOC.LE.O  *  GO  TO  500 

C  - CALCULATION  OF  COUNTERPOISE  CONTRIBUTION - 

TEG»ABTC-ABSF (SI  +  TEAI 1 1 )  5  TEG-ABSF ( TEG) 

VFGD»2.#SINF( TEG*.5)*SQVT 

IFIABSF(GA).LT.ABTC)  vfgd.-vfgo 

CALL  FRENEL(VFGD.FPGD.PHIG) 

REG*REG#FPGD 

RDG*RDG*FPGD 

TRM3»PHIG+(PI2*VFC,D*VFGD) 

IF(D.LT-CLIM.OR.D.GT.CCIM)  GO  TO  146 
SIC«CA 

TEC»ABSF(BTC-CA)  *  DARC«2.»HFC*SINF(CA) 

SIT1— SIC  %  GOC«GA  IN  (  SITU 

VFCP»2«#SINF<  TEC* .5 )*SQVT 

IFIABSF(CA).GT.ABTC)  vfcp—vfcp 
CALL  FRENEL(VFCP.FPCP.PHIC) 

CALL  RECC(SIC.F.ICC.IPL.I.DHD.RC.PICC.RDC) 

RLC"RC*GOC 

REC-RLC*FPCP 

EXPC- ( TWP I LA*DARC ) +PICC+ ( PH IC+ 1 P 1 2  #VFCP*VFCP > ) 
ATRM-REC*COSFIEXPC)  t  BTRM--REC*SINF(EXPC» 
ATl»CMPLX(ATRM.BTRM) 

14T  CONTINUE 


C  - CALCULATION  OF  LOBING  CONTRIBUTION' 

IF(SI.GT.SILIM)  GO  TO  135 
EXPG-(TWPILA*DR)+PIC+TRM3 

ATRM-REG*COSF(EXPG)  *  BTRM»-REG*SINFI EXPG» 
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NOT  REPRODUCIBLE 


C  - SUMMATION  OF  TERMS - 

136  AT2«CMPLX(ATRM.BTRM) 

WRL-CABS<GoD+AT1+AT2>  S  WR«WRL»WRL+.OOOl 
PR-10. +AL0G10IWR) 

'  IFID.LE.DZRl  GO  TO  148 
IF(LV.EQ.1»  GO  TO  148 
PL-FNAID.DML.DZR.PRH.PZ I 
WL»10.**I .1*PL» 

149  CONTINUE 

C  - - - long-term  power  fading - - - 


PL-PL-GPO 

IFID.LE.O.I  GO  TO  38 
IFID.LE.DSL1 I  301*302 

301  DEE-(130«*0’/DSL1  S  GO  TO  303 

302  DEE-130. +D-DSL1  *  GO  TO  303 

303  CALL  VZD(DEE.QG1*QG9.ADI 
IFICA.LE.O.l  GO  TO  32 
IFICA.GE.l.)  GO  TO  33 

FTH«.5-BSPI*<ATANFI 20.*ALOG10(32.*CAJ » I 
IF ( FTH.LE.O *0 )  GO  TO  33 

52  AL 10-PL+I AD< 13  >  +FTH I  $  AY-ALlO-ALIM 

IFIAY.LT.O.I  AY-0. 

53  IF  t ILB.GT.O.ANO.SI.LE.SILIM*  GO  TO  22 
DO  31  K-l *35 

VD(Kl»AD(K>*FTH-AY  $  BO  I K » -PL+VDI K > 

31  CONTINUE 

DO  50  K-l* 12 
ALLM— ALM  (  K  • 

IF(BD(K).GT.ALLM»  bdiki-allm 
50  CONTINUE 
;?4  CONTINUE 

C  - VALUES  PUT  INTO  PLOTTING  ARRAY - 


23 


NCT-NCT+1 

BX(NCT*1I»BX(NCT.2I-BX(NCT.3I-BX(NCT.4)«DNM 


BX(NCT.5)=BX(NCT.6)=BX(NCT.?)-BX 
IFIKK.GT.il  GO  TO  20 
PGS-PF  S+GPD 

BY(NCT.1)=PGS  S 

BYINCT, 3>=PGS+BD< 121-AA  $ 

BYINCT  *5 1 "PGS+BDI 23  I -AA  S 

BY ( NCT  *7) -PGS+BDI 29 1 -A A  S 

PFY ( NCT  *  1 I -PGS+BDI  4 1 -A A  S 

PFY (NCT .3 l-PGS+BDI 10*-AA  S 

PRINT  760  *DNM , (BYINCT. LZI.LZ-1* 8 
X.DEE 


NCT.8I-DNM 


BY (NCT. 2  I -PGS+BDI 18»-AA 
BY ( NCT .4  I -PG5+BD I  24  » -AA 
BY (NCT *6 ) -PGS+BDI 26>-AA 
BY ( NCT .8  > -PGS+BDI 32  >-AA 
PFY I NCT  *2  I -PGS+BDI 7 1 -A A 
PFY I NCT ,4 » -PGS+BDI 13  > -AA 
. (PFYINCT.MW) »MW*i*4l .PL.AA.AY.BK 


CALL  PAGE11> 

129  CONTINUE 
111  CONTINUE 

NUIll.NCT  S  RETURN 


C 


RETURN  to  MAIN  PROGRAM- 


15  FAY-1.  S  GO  TO  17 

1£  FAY-0.1  S  GO  TO  17 

C  - TROPOSHERIC  MULTIPATH - 

20  DO  30  1-1,35 
°QA I  1 1 -PI  II 
OAI I  I -BDI I  I -PL 
30  CONTINUE 

IF  I AY.LE.O. *  GO  TO  15 
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1F1AY.GE.6.'  GO  10  16 
FAY«<1.H-(0.9»C0SF( <AY/6.»*PI1 I )/2. 

17  CONTINUE 

RSP-REG*FDR*FAY 
IF(RE<2>.LE.O.  )  GO  TO  45 
RK*-10.*ALOG1'0  ( ASPC*  <R£<  2) *#3  >  » 

ACK-FDASP(RK)  $  WA-10.*»I .l*ACIO 

46  R5T-C ( R$P*RSP ) + ( ROG*ROG 1 +WA 1 
IFIRST.LE.O. >  GO  TO  37 

BK  x+10.*ALOG10(RST> 

IF(BK.LT.-40. )  BK— 40. 

47  CALL  YIKK(BK»PQK.QK> 

RDHK-BK 

CALL  CONLUT(OA*OK.POA.35»+l. *0.*PQC*QC» 

DO  27  1*1*35 
27  BO ( I  1 «QC( tl+PL 
GO  TO  23 

37  BK— 40.  S  GO  TO  47 

C  - LOSING  MODE - ■ - 

22  A Y=0. 

TL I M-+20 . *ALOG10 ( GOD+RLG+RLC ) 

BL IM-~8n. 

DO  36  K*  1  *3  5 

V0(<1«AD(K)#FTH  S  BO<k)«PL+VO<K»-AA 

IF(BD(K).GT.TLIM)  BD(K)-TLIM 
IF(BD(Kl.LT.BLIM»  RD  <K  1 *8L IM 
8D(K  >  *BP( K l+AA 
36  CONTINUE"' 

GO  TO  24 

26  FDR-0.1  S  Go  TO  43 

32  FTH-1.0  *  GO  TO  52 

33  FTH-0.0  *  AY-0.0  *  GO  TO  53 

34  FDR-1.  S  GO  TO  43 

35  FDR-O.  *  GO  TO  43 

_38  DEE-0.  S  GO  TO  303 

42  DHD-0.0  S  GO  TO  44 

63  HPR(LC»*HTX(LC»  S  GO  TO  62 

45  WA-.0001  S  GO  TO  46 

64  AFA-SI  5  R0«HTX(2)-HTX!1 1  S  R 12-HTX ( 1 > +HTX ( 2 >  S  GO  TO  68 

75  DO  74  LK-l.LX 

74  03  <  LK • *02  <LK 1 
LK-LX 
LR-LX 

,  GO  TO  134 

77  HTX ( 1 1 »HFC  S  HTX ( 2  I *HTX I  2 ) -HD I  *  A-AEFT+HDI 

ICPT-0  $  GO  TO  78 

83  GRD-SPGRD(LA)  S  DR»ALAM*GRD  S  LD-LD+1  *  GO  TO  86 

120  GRD-SPGRDILK)  i  APDR-ALAM*GRD  *  GO  TO  121 

122  51-0.  $  DR-O.  S  D-DLST+DLSR  $  GO  TO  123 

135  ATRM-O.  *  BTRM-O.  *  GO  TO  136 

164  D1I11-D2R  S  L5-1  »  SILIM-O.  *  GO  TO  160 

500  TRM3-0.0 

146  ATRM-O.  *  BTRM-O.  *  AT 1-CMPLX I ATRM.BTRM)  S  RLC-0.0 

GO  TO  14? 

U8  PL-PR  *  PZ-PR  S  WL-WR  S  GO  TO  149 

502  BTC-50VT-0.  S  HDI-HTE  *  GO  TO  503 
601  GND-GLDI  UO  *  GO  TO  602 
END 
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ASORP 


Subroutine  ASORP  is  used  In  the  calculation  of  atmospheric  absarptl 

(sec.  A. 4. 5)  to  obtain  surface  absorption  rates,  ynn  w  dB/km,  for  oxygen 

00  >w 

and  water  vapor  when  such  values  are  not  provided  as  input  (table  1). 
Interpolation  between  available  values  [40,  fig.  3.1]  is  used  to  provide 
Y00  w  values  for  frequencies  up  to  100  GHz. 


subroutine  asorpifk.ao.aw) 

C  ROUTINE  FOR  model  AUG  73 

1*  FORMAT  I 5X*FR£QU£NCY  IS  TOO  HIGH  FOR  ABSORPTION  TABLE  USING  VALUE 
XsS  FOR  100  GHZ*) 

DIMENSION  ZX<53)»ZW(53),FZ<53) 

DATA < FZ*. 10 ». 15,. 205 ». 30,, 325,. 35,. 40 *.55 ,.70,1.0. 1.52 ,2. 0,3, 0.3. 4 
F, 4. 0,4. 9, 8. 3, 10. 2. 15.0,  17. 0,20. 0,22. 0,23, 0,2 5. 0,26., 30.  ,32. 0,33.,  3 
F5. ,37. ,38., 40., 42. ,43., 44., 47. ,48., 51., 54., 58. ,59. ,60., 61. ,62., 63. 
F,64.,68»,70»,72  ,,76.,84«,S'J»,100,) 

,  DATAIZX*. 00019.. 00042,. 00070,. 00096,. 0013,. 00 15,. 00 18,  ,0024,. 003.. 

X0042 , .005 , .007 , .0088 , ,0092 ,,010, ,011, .014, ,015, .017,, 018,. 020, .021 
X.. 022*. 024,. 02 7,. 030.. 032.. 035,. 040,. 044,. 050,. 060,, 070,, 090,. 100, 
X. 15,. 2 3,. 50* 1*8. 4. 0,7. 0,15. 0,8. 0,5. 0,3 *0,1 .7, 1.2,. 90,. 50, .35,. 20,. 
X 14 , . 1 0  • 

DATA (ZW- 1310.0  > . .0001 , .0001 7 . ,00034 , .0021  , .009 , . 025 . . 045 . . 10 , .22 . . 
W20,. 16.. 15.. 11.. 14,. 10,. 099,. 098,. 0963  ,.0967, .0981,. 0987,. 099.. 100 
W,. 101.. 103,. 109.. 118,. 120,. 122,. 127,. 130,. 132,. 138,. 154,. 161,. 175, 
W. 20. .25, .34, .56) 

TEN* 10 . 

F*FK*.Onl 
IFIF.LT..1)  F-.l 
IFIF.GT, 100*1  GO  TO  20 
DO  10  1-1.53 
I F ( F-FZ ( I  1)12.11,10 

10  CONTINUE 
GO  TO  20 

12  IFII.EQ.il  1*2 

13  L-I-l 

A-ALOGIOIF)  S  B-ALOGIOIFZI  1  )  )  $  C-ALOGIOI FZI L I > 

R.< A-C)/(B-C> 

D-ALOG10IZXI I  )  )  «  F-AL0G10IZXIL*) 

AR«(R*(D-E) >*E  i  AO-TFN»*AR 

IFII.LE.13l  GO  TO  21 

G*ALOG10< ZW< 1 ) >  *  H-AL0G10IZWIL) ) 

WR*(R*(G-H> )*H  «  AW«TEN**WR 

RETURN 

20  PRINT  14  *  AO*. 10  *  AW*. 56  *  RETURN 

11  AO-ZX (  1 1  *  AW*ZW(|I  8  RETURN 

21  AW-0.0000  »  RETURN 

END 


BLOS 


Subroutine  BLOS  is  used  only  with  the  station  separation  program 
(sec.  B.2),  and  is  similar  to  ALOS  and  CLOS,  which  are  used  with  the 
other  programs.  BLOS  performs  calculations  associated  with  the  line- 
of-sight  region  (sec.  A. 4. 2). 


SUBROUTINE  BIOS 

C  L-O-S  subroutine  for  nOVERU 

c  ROUTINE  FOR  MODEL  AUG  73 

5  FORMAT ( 1 H  I 

DIMENSION  XCON ( 5 • *  NTM I  5  I 

DIMENSION  CFK(3 ) *CMK ( 3 ) »CFM( 3  )  *  CKM I  3  I tCKNIjI 
DIMENSION  GLD(8l»Dl(?00)*D2<200),D3<200) 

DIMENSION  HTXI2 ) «Z ( 2 ) . TEA ( 2 > • DA ( 2 > »HPR 1 2 > 

DIMENSION  S  I D ( 2 A ) 

DIMENSION  SPGRDI3) 

DIMENSION  RE(2  ) ,00(35  I .VDI35 I 
DIMENSION  ALMI 1?) ,A0(3S I 

DIMENSION  P( 35 ) ,0C( 50) ,0A( 50  I ,PQA<50>  »PQKI50) .QKI50) .PQCI50) 

DIMENSION  YV( 10)  ,SV( 10  I 
COMMON/EOAP/IP.LN, tnT,  IXT 

COMMON/D  I FPR/HT  > HR  « DH « AED ,  SLP  ,DLST  ,DLSR  *  I  PL  »KSC » Ht.T  *HRP*AWD»SWP 
COMMON /PftOUT /NCT,PFY(?00,6l 

COMMON/PaR AM/hTE,hRE.D«DLT,DLR.ENS,CFRTH»FREK*ALAM,TET.TeR»KD, GAO, 
XGAW 

COMMON/ S IGHT/DCW. UCW, CM1X.DML ,DZR. IK,EAC»H2, ICC » MFC *PRH*DSL 1 ,P I RP » 
X0G1 »QG9.XK,2H,ROHK, ILB 

COMMON/ SPL I  T/L  1  . 1.2  ,  N  ,X  (  1  AO  )  ,  Y  (1 40  )  ,D6  (HO  )  »XS  <  55  )  *  XD  (  55  I  ,XR  (  55  )  ,  YS 
X(55),YD(55).YR(85).L3,ZS(25l.2D(?5l*2R(25) 

OAT A  (CFK*«Oni ,  .0003048  ,  .0003040  ) 

DATA  t(P(|>*I*l«35 ) 00001 » .00002 00005  *,0001 ,.0002 ». 000 5,. 001  ,  . 
X002,.005(.0l,,02,,0'j,.l  ,, 15, .20, ,30, *90, .50,, 60, .70, *80, ,65, .90,. 
X95,. 90,. 99,. 995,. 998,. 999, ,9995,. 9998,, 9999,. 99995,. 99998,. 99999) 

DATA  (CMK“1. ,1.609344, 1,85?) 

DATA  (CFM*1, ,.3040, .3048* 

DATA  (  C'F.M*  1000  .  ,328  0.8  39895,3200.8  398951 
DATA  (CKN'l. » .6213711922 ,.5399568034) 

DATA ( XCON" 1 .  ,5.  ,10,, 25.. 0.) 

DA TAINTM*10» 19. 30,10,0  * 

DA  T  A  (  Gl  D»0«  »  .1  , «  2 ,  »  3 ,  •  4  ,  ,i5»«  75,1.) 

DATA(ALMB”6.2,“6,15,’-6,08,“6.0»"5.95,“5.88,*"5,8,,*5,65,  —  5,35,™5.0,"" 
X4.5.-3.7) 

DATA  I SPGRD»0»  » ,06, . 1  * 

DATA  ISID*.2,. 5, .7,1. ,1.2, 1.5, 1,7.2, ,2. 8, 3., 3.5, 4., 5., 6*, 7, ,8. ,10, 

X, 20. ,4  5. ,70* ,80. ,85.  ,88., 89.  I 

COMPLEX  AT ; . A T 2 

FNA(FX,FA,rB,FC,FD)  ■(  ( FX-FB 1  *  I FC-FD> / ( FA-FB»  *  +-FD 
BSPI«. 3183098862 

RAD-.ol 745329232  *  DEG-57. 295 7795 1  8  TWDG»12.*RAD 

AL  IM*3 . 

PI-3. 141592654  *  TWPI-6. 283185307 

F-FREX 

PI2«1. 570/96327  S  CP12-1.56  Nqj  REPRODUCIBLE 
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t 


DKAX=DMAX*CMK(IK> 

AFP=32.45+20.*ALOG10<FREK> 

ALA2-ALAM/2- 

ASPA-0.25  $  ASPB-0.25 

ASPC-ASPA»ASPB*(6.E-8)*F 
TWPILA-TWPI/ALAM 
DTRO-ALAM/6. 

ERTH  -6370. 

AO-ERTH  *  EFN-EFRTN 
PKL-I <3.»PI l/IALAM)  ) 

NCT-0 

NOC-O 

IF(ICC.GT.O»  NOC-1 
CDRK-20.95841232*F 
IFINOC.LE.O1  GO  TO  502 

RCW-DCW*. 5  *  BTC-ATANF (HFC/RCW I 

ABTC-ABSF(BTC)  S  R1C-RCW/COSFIBTO  *  SQVT-SQRTF ( 2.*RlC/ALAM) 
HDI-HTE-HFC  S  TWHC-2.*HFC 

503  CONTINUE 
L 1 -L2-N-0 
TWHT-2 »*HTE 

c  - SETTING  UP  OF  TABLE  OF  Sit  DELTA  R  AND  DISTANCE - 

LE-7  S  IF ( I LB.GT .0  )  LE-11 
00  61  LK-l.LE 
IFILK.LT. 41  GO  TO  120 

LB-13-LK  i  GRD-FLOATFILB)  *  APDR-ALAM/GRD 

121  I F ( APDR.LE.O. I  GO  TO  122 
IFIAPDR.GT.TWHT  I  GO  TO  21 
SI-ASINFfAPDR/TWHT) 

ASSIGN  65  TO  KR  *  GO  TO  66 
65  Ll-Ll+l  S  XS(L1)-SI  S  XDIL1>-DR 

XR(L1  1-0 

IFIAPOR.LE.O. )  GO  TO  122 
SI«S0RTF(APDR/(2.*DLST)  I 
IFlSI.GT.PI2l  SI-PI2 
ASSIGN  123  To  KR  *  GO  TO  66 
123  L2-L2+1  %  YSIL2I-SI  *  YD<L2l«0R 

YRIL2 )»D 
61  CONTINUF 
21  CONTINUE 

I F ( ILB.LE.O'  GO  TO  162 
00  150  LA-1.10 
GNO-FLOATFILAI 
00  151  LG- 1.4 

GO  TO  (155.156.157.158).  LG 


155 

GRO- (4,*GND-l»)/4. 

s 

GO 

TO 

159 

156 

GRO-GNO 

t 

GO 

TO 

159 

157 

GRD»<4.*GND+1. 1/4. 

s 

GO 

TO 

159 

156 

GRDJ ( 2«*GN0+l . )/2. 

s 

GO 

TO 

139 

159  AP'DR«GRD*ALAM 

IF (APOR.GT.TWHT !  GO  TO  162 
S I-ASINFI APOR/TWHT I 
IFISI.GT.P12)  SI-PI2 
ASSIGN  132  TO  KR  *  GO  TO  66 

152  Ll-Ll+l  S  XSILll-SI  »  XDIL1>«DR  >  XR(L1>«D 
S  I-50W1 F ( APDR/ 1 2«*DLST ) I 

ASSIGN  133  TO  KR  S  GO  TO  66 

153  L2-L2+1  *  YSIL2I-SI  S  YD(L2)-0R  S  YRIL2I-D 

151  CONTINUE 

130  CONTINUE 
162  L  3-0 

00  67  LK-1.24 
S  I-SIDILK ) «RAD 
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ASSIGN  124  TO  KR  S  GO  TO  66 
124  L3*L3+1  S  ZS<L3)«SI  S  ZD!L3>«OR 

ZR<L3>-D 
67  CONTINUE 
SI-PI2 

L3«L3+1  S  ZS( L3 • *SI  $  ZO(L3>»fWHT  S 

CALL  TABLE! DUM) 

C  - USING  TABLE  TO  OBTAIN  STRATEGIC  DISTANCE 


LR«0 

DO  70  LA= 1 »LE 
IF(LA.LT.4)  GO  TO  88 

LB= 1 3-LA  %  GRD«FLOATF!LB)  S  DR«ALAH/GRD 
IF1DR.GT.TWMT)  GO  TO  25 
86  CONTINUE 

D*DInTER(DR> 

IF ( D.GT .DML •  GO  TO  70 
LR-LR+1  S  Dl(LR)«D 
70  CONTINUE 
25  CONTINUE 

IF!  ILB.LF.O'  GO  TO  163 
DO  172  LA* 1  *  1 0 
GND*FLOATF ( LA ) 


DO  173  LG* 1*4 

GO  TO  ( 165.166tl67.168)  . 

165  GRD*(4.*GND-l.)/4.  » 

166  GRD-GND  S 

167  GRD«<4.*GN0+1 .  )/4.  S 

l6«  GRD=  (  2  .*GND  +  1  .  I /2.  S 


GO  TO  169 
GO  TO  169 
GO  TO  169 
GO  TO  169 


169  DR«GRD*ALAM 

IF(DR.GT.TWHT)  GO  TO  163 
P*niNTER(CR> 

IF(D.GT.OML)  GO  TO  172 
LR*LR+1  *  D1(LR)*D 
173  continue 
172  CONTINUE 
163  CONTINUE 

IF<LR>154.164 

154  D-DKLRl  *  SILIM-SINTERID) 
DO  11  LA«1.LR 
LV-LP+l-LA 
11  D3(LA)*D1 (l  V) 

D2UI-DZR 

CALL  TSMESHI02.1.D3.LR.D1.L5I 
160  LR-0 
SPO-.l 

DO  800  NSP-1.5 

mzs-ntninsp' 


IF<MZs. LE.nl  r.O  TO  107 
DO  801  MXS*1.MZS 
0»5PD*CMK (IK) 

if(d.gt.dml)  go  to  107 

LW*LR+1  *  D3  <  LR  * "D 
803  SPD«SPD+XCON(NSP> 

801  CONTINUF 

SPD«SPD-XCON(NSPI 

NPP*NSP+l 

IF(NPP.GT.5>  GO  TO  107 
IF ( XCON (NPP • . EQ.O. )  GO  TO  107 
IF(NPP.FO.O)  GO  TO  107 
IXD* InTF! SPD/XCONINPPI  ) 

SPD* I XCON I NPP*  »FLOATF( 1X0)1 ♦XC0N1NPP I 
800  CONTINUE 
107  CONTINUE 


2R(L3>-0. 
POINTS - 

8  LDaL.D+1 
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/  CALL  TSMESHID1.L5.D3.LR.D2. LX) 

lFlNOC.LE.0t  GO  To  75 

C  - CALCULATION  OF  COUNTERPOISE  STRATEGIC  POINTS 


LR  *0 

00  600  LK=>1»13 
IFILK.LT. 9)  GO  TO  601 
FLK-LK-8 
DO  603  LG-1.4 
FLG-LG 

GND* ( (4.*FLK>+FLG)/4. 

602  APDR=GND*ALAM 

IF( apdr.gt.twhci  GO  TO  29 
5  I -ASI NFI  APOR/TWHC  t 
ICPT= 1 

ASSIGN  40  TO  KR  $  GO  TO  66 
40  CONTINUE 

IF(D.GT.DML)  GO  TO  604 

LR=LR+1 

03 (LR  )»D 

604  IFILK.LT. 91  GO  TO  600 

603  CONTINUE 
600  CONTINUE 

29  CONTINUE 

PRINT  5  5  CALL  PAGE! It 

CL  IM-03I LR*  $  CC IM-D3 ( 1 1 
DO  69  1-1  .LR 
LV-LR+1-  I 
69  01 ( I I-D3ILV) 

CALL  TSME5H(D1.LR.D2»LX.D3*LKI 
134  00  129  LV-l.LK 
ICPT-o 

13  SI-SINTFR(03(Lvt 1 
ASSIGN  28  TO  KR 


C 


RAY  OPTICS  GEOMETRY 


66  CSSI-COSFISIt 

SNSI-SINFISI I  *  siso-snsi«snsi 

AKO.EFN/AO  *  ZE- ( 1 . /AKO I -1 .  t  AKE-l ./( 1 .♦( ZE*CSS I  t  > 

AEFT -AO*AKE  S  DHE- E AC* I AkE- 1 . t / < AKO-l • > 

HTX ( 1 t-HTE  *  HL-H2-DHE  S  HTX I  2  I -HL-HRP  *  HCL-HL*CKM( IK) 

IF ( ICPT.GT.O)  GO  TO  77 
A-AEFT 
78  CONTINUE 

DO  62  LC-1.2 

Z ( LC • * A+hTX ( LC I  *  TEAILCt-ACOSFI A*CSSI/ZILC> t-Sl 
DA (LC  •  'Z ( 1C  I »S!NF( TEAILC > > 

IF ( S  I  ,GT. ] .56  )  GO  TO  6  3 
HPR(LCl-DA(LC t*TANFISI ) 

62  CONTINUE 

DTX-ABSFI Z( 1 '—2(2) • 

IF ( SI .GT.CP I  2  t  GO  TO  64 

AF'A-AT  ANF  (  I  HPRI  2  I  -HPR I  1  I  )  /  (  DA  (  1  l+DA  (2  I  >  t 
R0«  I  r>A  C  1  >  4-OA  (  2  »  I/COSFIAFAl  *  R 1 Z-  <  DAI  1  )*0A(  2  I  1  /  CSS  I 
IF (RO.LT.DTX )  Ro-DTX 
68  CA-AFA-TEAI 1 )  S  TH-TEA(lt*TEA(2» 

DR.4,*HPR( 1 >*HPR<2l/(RO*R12> 

BA-CA 
CD-CA*DEG 
D-AEFT*TH 
IFIO.LT. 0.)  D-0 • 

DNM»0*CKNIIKI 

GO  TO  KR. (65. 28. 123. 132. 133. 124. 40. 152*1531 
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c 


>•  if  irMT.o.ni)  no  to  j j? 

IMP. animal  >  f,n  TO  U1 

M.r  WKP»?n.Minr>tfttno  * 

Pf S«P|NP- Airs 
GOOaRAINICA) 
arn»?0.  »ALOCi|0  (OOOI 

rulUI-l  1 1 1 

J*»IZ  I  l  !«f'0{.i*(BAf  l/Z<2  I 

IMOIM.r.O,  I  00  TO  4? 

f>MO»0H*  (  1  I0.MEXPFI-0,0?#DI  I  I  #1000. 

A*  CAll  SOOh (III  I » /  <  2  I * A  »R0  «BA  *  RE  > 

AA«ttAO«»f.  I  1  I  ♦OAW» NE  I  2  I 
51  If > IIH.GT.O. ANO.Sl.lt. SILIM>  GO  TO  35 
IH  OH.OF.AIA?)  GO  ’0  34 
in  ON.lF.OTHO)  GO  r 0  ?« 
fO«»l  1  . I  •  I  0 .9#C0$M  PKL*  I  OR-OTRO) )  1  l*,5 
4  3  CON  VI  AlUt 

C  41  l  RFCPlSI <KSC • I  PL  »0 *DHO  »R »PIC  »ROI 

riA.«  I  TI.AI  1  )  ♦$  I  I  S  GAHD>GA#OEG  S  G0G«GAIN<GA| 

ftrm.Ro. 

RFC "ft.O 
REG.R#GO0 
RIG. REG 

IMNOC.IE.O1  GO  TO  300 


C  . . . CALCULATION  OF  COUNTERPOISE  CONTRIBUTION' 

TtG.ABTf-ABSF  ISI  +  TEAI 1  )  I  S  TEG-ABSFt TEG) 
vEGtw,  *  mnf  i teg*. 3  >  *sqvt 
IFIAHSFl  r.Al.lT.ABTC  )  VFGO.-VFGO 
CALL  FPENFI.  (VFGD.rPr.O.PHIG) 

RFr.«REr.#FPr,o 

RP(i«  RtHi.F  PGO 

THMJ.0MIG4-I  P|2#VFr.f)#VFC.r)l 
IF(O.lT.rilM.OR.D.GT.CCIM)  GO  TO  146 
SIOCA 

TIC.ABSF IBTC-CA)  S  PARC»2 . #HFC»S I NF I C A ) 

M  T  1  ■ - S I C  *  GOC-GAINISITl ) 

VFCP«?.»SINF( TEC#.#l#SOVT 
1FIABSFI CA) .GT.ABTC I  VFCP.-VFCP 
CALI.  FRENFKVFCP.rPCP.PHIC) 

CALI  RFCCISlC.F.ICC.IPl.l.DHD.RC.PICC jRDC) 

RLC  »  RC#GOC 
RFC  »RLC  *F°CP 

EXPC  «  I  TWP IIA#DARC I +P ICC# I PMIC+  (  P 12  *VFCP*VFCP) I 
ATRM.REC#COSF<FXPC)  S  8TRM«-REC#SINF (EXPC) 
AT1«CMPLX (ATRM.BTRM) 

147  CONTINUE 


C  - CALCULATION  OF  LOSING  CONTRIBUTION 

IFISI.GT.SIUM)  GO  TO  135 
EXPG.  (  TWP  1 1  A#DR  )  >P  I C-FTRM3 

A  THM3>REG#C0SF  I EXPG)  S  BTRH»-REG#SINF<EXPG> 

C  - SUMMATION  OF  TERMS - 


13xS  AT2«CMPLX(ATRM.0TRM) 

WRL.CAGSI G0D+AT1.AT2 )  S  WR*WRL#WRL+.0001 

PR»10.*ALOG10(WRI 

IFIO.LE.DZR)  GO  TO  148 

IF  I IV. EO.  1.1  GO  TO  148 

FKFNAID.OML  .DZR.PRH.PZI 

VL«10.##I  ,1#PL) 

149  CONTINUE 

not  reproducible 
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—LONG-TERM  POWER  FADING' 


pi  =pl-gpd 

IFID.LE.O.)  GO  TO  3  A 
IF(D.LF.DSl1> ' 301*302 

301  DEE-1130. «n>/DSLl  $  GO  TO  303 

302  DEEM30.+D-DSL1  *  GO  TO  303 

303  CALL  V2DI DEE *QG1 *QG9 *AD ) 

IF(CA.LE.0.>  GO  TO  32 

I F ( CA . GE. 1 • >  GO  TO  33 

FTH=.5-BSP!*<ATANF<20.*AL0G10U.*CA>  »» 

IF  I FTH. LE.O  »0  >  GO  TO  33 

52  AL10=PL  +  (ADU3>#FTH)  *  AY-ALlO-ALIM 

IF( AY.LT.O. >  AY«0. 

53  IFI ILB.GT.0«AND.S1.LE.S1L1M>  GO  TO  22 
DO  31  K>1  *35 

VD(K>=AD(Kl*FTH-AY  S  B0(K>-PL+VD<K) 
31  CONTINUE 

DO  50  K*>1  *  12 
ALLM«-ALM(K> 

IF(BD(K).GT.ALLM>  BO (K  I  -ALLM 

50  continue 

24  CONTINUF 


c 


VALUES  PUT  INTO  PLOTTING  ARRAY - 


NCT-NCT+1 

IF(KK.GT.l)  GO  TO  20 
23  PGS=PFS+GPD 
PFL-PGS+PL-AA 

PFYfNCT.l )=DNM  S  PFY ( NCT  *2  I *PGS  $  PFYI NCT . 3 > -PFL 

PFY(NCT,4>=0D(12J-PL  S  PFYINCT.5 >«BDI 18 > -PL 

PFY(NCT,6>-8D(24)-PL 
179  CONTINUE 
111  CONTINUE 
RETURN 


C 


RETURN  TO  POWSUB 


15  FA Y= 1 «  $  GO  TO  IT 

16  FAY-0.1  S  GO  TO  17 

c  - TROPOSPHERIC  MULTIPATH' 

20  DO  30  1=1  .35 
PQA  Ip.PlII 
OA ( I ) *RD( II-PL 
30  CONTINUE 

IEfAY.LE.O. >  GO  TO  15 
IF ( AY.GE.6. >  GO  TO  16 
FAYM  J  •  1  (  0  «  9*COSF  (  (AY/6.>*PI  I >  »/2. 

17  CONTINUF 

rsp=reg*fdr*eay 

IF(RE( ?) .LE.O.  )  GO  TO  45 
RK=-10.»ALOG10lASPC*(REl2,#*3l) 
ACK-FDASPIRK )  $  WAM  0.  *M  .  1*ACK  I 

46  RST-I  (RSP*RSP)-MROG*RDG»+WA> 

FFIRST.LF.O. >  GO  TO  37 

PK  *  +  10. *ALOG10IRST  ) 

IF  (EK.LT.-40.  )  BK— 40. 

47  CALL  YIKK(BK.POK.OK) 

RDHK=BK  .  . 

CALL  CONLUT ( QA *OK .PQA*  35  *  +  l « *0. *PQC  *QC J 
DO  27  1-1*35 
?7  BDlII-OCCIl+PL 
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n  n 


GO  TO  23 


37  UK «-40«  $  GO  TO  47 

C  - LOSING  MODE - 

22  AY=0. 

TL  IM»4-?o»*AL0610(  GOD+RLG+RLC  ) 

BLIM“-80. 

DO  36  K  =  1  .35 

VDtK>*AD(K>*FTH  $  BDlK>'PL+VOI  )-AA 
IFIBD(Ki.GT.TLlM»  80<K>-TLlM 
!F(BD<K),LT.BLIM>  BDIKI-BLIM 
BO ( K  >  =OD( K  > +AA 
36  CONTINUE 
GO  TO  24 

26  FDR  °0  ->  1  *  GO  TO  43 

32  FTHM.O  S  GO  TO  52 

33  FTH-G.O  S  AY*0.0  S  GO  TO  53 

34  FDR  =  1  «  S  GO  TO  43 

35  FDR-0.  S  GO  TO  43 

38  DEE*0.  S  GO  TO  303 

42  DHD=0.0  $  GO  TO  44 

45  WA=.OOOl  *  GO  TO  46 

63  HPR(LC)=HTXILCI  $  GO  TO  62 

64  AFA“S I  *  R0-HTX(2)-HTX( 1 )  S  R12"HTX < 1 »+HTX (2)  $  GO  TO  66 

75  DO  74  LK=1.LX 

74  03 <IK> »D? (LK) 

LK  *LX 
LR“LX 
GO  TO  134 

77  HTX  < 1 i *HFC  S  Hi  X < 2 ) *HTX < 2 > -HD l  *  A*AEFT+HD ! 

ICPT-0  $  GO  TO  78 

88  GRD»SPGRD ( LA <  S  OR«ALAM*GRD  $  LO*LD+l  S  GO  TO  86 

120  GRDcSPGRD(LK)  $  APDR»ALAM*GRD  S  GO  'C  121 
12 2  SI“0.  S  DR=0.  S  D*DL5T+DLSR  $  GO  TO  123 

135  ATRM*0.  S  BTRM=0.  *  GO  TO  136 

164  DK1WD2R  $  L5-1  *  SILIM*0.  S  GO  TO  160 

500  TRM3-0.0 

146  ATRM-0.  J  BTRM«0.  *  AT 1-CMPLX ( ATRM r BTRM )  *  RLC-0.0 

GO  TO  14? 

148  PL  =PR  1  PZ-PR  $  WL-WR  *  GO  TO  149 

502  BTC*  SOVT*  0»  S  HDI-HTE  $  GO  TO  503 

601  GND*GLD(  LK •  *  GO  TO  602 

END 


CLOS 


Subroutine  CLOS  is  used  only  with  the  service  volume  program 
(sec.  B.3),  and  is  similar  to  ALOS  and  BLOS,  which  are  used  with  the 
other  programs.  CLOS  performs  calculations  associated  with  the  line 
of-sight  region  (sec.  A. 4. 2). 

SUBROUTINE  CLOS 

L-O-S  SUBROUTINE  FOR  SRVVOLM 
ROUTINE  FOR  MODEL  AUG  73 

5  FORMAT  UH  I 
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DIMENSION  XCON  ( 5  1  *NTM{  5  I 

DIMENSION  CFKl3>*CMIC(3l»CFMl3I*CKMl3>»aCN(3l 
DIMENSION  GLDI8) .D1I200) .02 <200 ).D3( 200) 


DIMENSION  HTXI2 I »Zt2 > tTEA(2' »DA(2» *MPRI2I 
DIMENSION  S  ID  ('24  * 

DIMENSION  SPGRDI 3  3 
DIMENSION  RE(2)*BD(35)*VD(1SI 
DIMENSION  ALM( 1?) »AD<35> 

DIMENSION  P( 35  I *QC( 50 ) .QA I  50  I , PDA <50* .PQK(50) .OKI  50) .PQC<50> 

DIMENSION  VV ( l 0 ) .SV( 101 

COMMON /EGAP/ 1 P.LN,  IDT.  I  XT 

COMMON /PAOUT/NCT.PFY ( 125*6) *  JJ« HP  1 ,HP2 

COMMON /PaR AM/ hTe.hRE.D.DET , DLR . ENS , EFRTh* FREK .Ai-AM.TET»TER*KD«GAO. 
XGAW 

COMMON/D I FPR/HT  .HR  .DM . AED . SEP • DUST .DLSR . I  PL . KSC .HUT .HRP. AWD.SWP 
COMMON/SIGIlT/DCW.IlCW.DMAX  .DML.D2R  .  IK  ,E AC ,H2 . 1 CC .MFC • PRH » DSL  1 .P I RP » 


XQG 1 .QG9.KK .ZH.ROHK *  I  LB 

COMMON/ SPL lT/Ll»L2*M.X(140)»Y(140i*D6ll40).XS(55).XD(55)»XR(55).YS 
X(55 )*YD(55  *  »YR(55) .L3.ZSI25) »ZD(25) .ZRI25) 

DATA  (CFK-.OOi . .0003048 » .000 3048 i 

DATA  ( (P ( I ) . 1 -\ .35 ) =.00001 . .00002 ..00005..000 1..0002..00U 5, *001 *. 
X002*. 00 5*. 01.. 02.. 05.. 10.. 15.. 20,. 30 ». 40., 50.. 60.* 70,. 80.. 85,. 90. . 
X95.o98f.99 » .9 95*. 998 ,.999* ,9995  ».9V98*. 9999, .99995 « .99998. .99999) 
DATA  (CMK  =  1 • *1  .609344 ♦  1.852* 

DATA  (CFM=1  ,.3048. .3048) 

DATA  t  CKM= 1000  o  .3280. 8 3 9895.3280. 839895) 

DATA  (CKN=1* • .6213  71  1922  .  ,5  3  99568034) 

DA  T  A ( /CON= 1 . .5. . 10. .25. .0. ) 

DATAINTM =10.19.3 0,10*0  ) 

DATA  (GLD-O. . . 1 » .2 » .3 » .4 ♦ . 5 » • 75 ♦ 1 .  • 

DA  TA(ALM  =  -6.2»“6.15»-6.G8,-6.0»~5.55»~5.88»-5.8»-5.65»“5.35»-5*0»~ 


X4.5.-3.7) 

DATA  ISPGRD-O.  ..06. .1) 

DATA  ( S ID* . 2 , • 5 , . 7, 1  * , 1 »2 , 1 • 5 « 1 *7 ,2 . ,2*5 ,3* • 3 *5 «4* ,5. ,6. ,7*. 8, ,10, 
X,20.,46..70*,80.,85»,88.  ,89, ) 

COMPLEX  ATI  ,AT2 

FN  A  (FX.E  A.FB,  FC. FD)  »(  (FX-F8l*(FC-FD)/IFA-FBl  >+FD 


BSPI=. 3 183098862 

RAD=. 01745329252  S  DEG-57. 29577951  S  TWDG«12.»RAD 

AL[M=3. 

PI=3. 141592654  S  TWP 1=6.283185307 

F=FREK 

PI2-1. 570796327  S  CP12-1.56 

DK AX=DMAX*CMK (IK* 

AFP “32 •  45  +?0.*ALilGl  0 ( FREK > 

ALA2=ALAM/2. 

ASPA=o.25  S  ASPB-0,2? 

ASPC=ASPA*ASPB*(6,f-8)*F 

TWPILA=»TWPI/ALAM 

DTRO-ALAM/6. 

ERTH  -6370. 

AO-ERTH  S  EFN-EFRTH 
PKL - 1 <3.*PI */( ALAM)  I 
NCT-0 
NOC-O 

IF ( ICC.GT .0  *  NCC-1 
CORK-20. 95841232*F 
IF ( NOC.LF.O  *  GO  TO  502 

RLW-OCW*. 5  S  9TC-ATANF (HFC/RCW • 
ABTC-ABSF(BTC)  S  R 1C«RCW/C0SF ( BTC )  *  5(3VT-SQRTF(2.*RlC/ALAM) 

HDI -HTE-HFC  *  TWHC-2.»HFC 

503  CONTINUE 
L l*L2-N-0 
TWhT»2,#hTf 
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c 


SETTING  UP  OF  TABLE  OF  S I .  DELTA  R  AND  DISTANCE 


LE  =  7  $  IFllLB.GT.O)  LE»11 

DO  61  LK  =  1  *LE 
IrlLK.LT.4l  GO  TO  120 

LB* 1 3-LK  i  GRD*FLOATF(L8l  S  APDR-ALAM/GRD 
121  IFIAPDR.LE.O.)  GO  To  122 
IFI APDR.GT.TWHT)  GO  TO  21 
SI*ASINF< APDR/TWHT) 

ASSIGN  65  TO  KR  S  GO  TO  66 
63  L1*L1+1  S  XS(L1)-SI  S  XOUU-DR 

XR(L1I=D 

IFIAPDR.LE.O.)  GO  TO  122 
SI*SQRTF( APDR/(2.*0LSD  ) 

IFISI.GT.PI2>  SI-PI2 
ASSIGN  123  TO  KR  S  GO  TO  66 
123  L2=L2+1  $  YSIL2I-SI  S  YDIL2*-DR 

YR<L2>»0 
61  CONTINUE 
21  CONTINUE 

IF! ILB.LF.O)  GO  TO  162 
DO  150  LA*  1  *  10 
GND'FLOATFI LA ) 

DO  151  LG* 1  *  4 

GO  TO  (155.156*157*1581*  LG 


155 

GRD=(4.«GKD-1. 1/4. 

S 

GO 

TO 

159 

156 

grd»gnd 

s 

GO 

TO 

159 

157 

GRD* (A.*GND+1. 1/4. 

s 

GO 

TO 

159 

156 

GRD= ( 2,#GND+1 . 1/2. 

s 

GO 

TO 

159 

159 

APDR=GRD*ALAM 

ifiapdr.gt.twhti  go  to 
5  I  = AS  I NF ( APDR/TWHTI 

162 

IFISI.GT.PI2)  S  I  =  P I 2 
ASSIGN  152  TO  KR  S 

GO 

TO  66 

152  L 1 =L 1+1  t  XS<L1>»SI  S  XO(L1»-OR  S  XRU1>-D 
SI  =  SORTF( APDR/(2.«DLST)  ) 

ASSIGN  153  TO  KR  S  GO  TO  66 

153  L  2  =L2  +  1  *  YSI L2  )  *S l  S  YD(L2>-DR  S  YRIL2I-D 

151  CONTINUE 

150  CONTI NUF 
162  L 3“0 

DO  67  LK“ 1*24 
SI*SID(LK!»RAD 

ASSIGN  124  TO  KR  S  GO  TO  66 


12A 

L3+L3+1  t 

2RIL3  »-0 

ZS<L3  » -S I 

s 

ZDIL3 I*DR 

67 

CONTINUE 
SI-PI2 
L3-13+1  * 

ZS(L3)«SI 

s 

Z0IL3 I «TWHT  i 

ZRIL3I-0 

CALL  TABLF(DUM) 

C  - USING  TABLE  TO  OBTAIN  STRATEGIC  DI5TANCE  POINTS - 

LR-0 

DO  70  LA-l.LE 
IFILA.LT.4I  GO  TO  88 

LB” 13-LA  S  GRD-FLOATF(LB)  #  DR-ALAM/GRD  S  LD«LD+1 
IF ( DR.GT. TWHT I  GO  TO  25 
86  CONTINUE 
D*D!nTE,?(PRI 
IF ( D.GT »DML *  GO  TO  70 
LR-LR+1  *  DKLRI-D 
70  CONTINUE 
25  CONTINUE 
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IF(ILB.LF.O>  GO  TO  163 
DO  17?  LA*  1 » 10 
GNO=FLOATF(LA) 

DO  1T3  LG*  1  •  A 

GO  TO  <165.166.167.168).  LG 

165  GRO*(4.»GND-i. 1/4.  S  GO  TO  169 

166  GRD=GND  S  GO  TO  169 

167  GRD*(4.*GND+l.)/4.  S  GO  TO  169 

168  GRD=f?.*GND+l .»/2«  5  GO  TO  169 

169  DR=GRD*ALAM 
JF(DR.GT.TWHT)  GO  To  163 
D  =  D INTER ( DR  I 

IF ( D.GT .DML  *  GO  TO  172 
LR-LR+1  *  Dl<LR>*D 
173  CONTINUE 
172  CONTINUE 
163  CONTINUE 

IFILR) 15A .164 

154  D=D 1 ( LR I  *  S IL IM*S INTER ( D ! 

00  11  L  A* 1 »LR 
LV*LR+1-LA 
11  03 ( LA  I =01 (LV) 

02(1) =  02R 

CALL  TSMESH(D2,1,D3.LR.01.L5) 

160  LR=0 
SPD=  » 1 

DO  800  NSP-1.5 
MZS=NTm(NSP> 

IFIM2S.LE.0)  GO  TO  107 
00  801  MX S= 1 *M2S 
D*SPD*CMX (IK  I 
IF (D.GT .DML  *  GO  TO  107 
LR=LR+ 1  S  03 ( LR I *0 
803  SPD«SPD+XCON(NSPl 
801  CONTINUE 

SPD-SPD-XCONINSP) 

NPP=NSP+1 

I F ( NPP.GT .5  I  GO  TO  107 
IF(XCON(NPP) .EO.O. I  GO  TO  107 
I F ( NPP.EG .0  I  GO  TO  107 
!XO*INTF{ 5PO/XCON( NPP I  I 
SPO*(XCON(NPP)*FLOATF( IXD) I +XCONI NPP) 

800  CONTI  NUT 
107  CONTINUE 

CALL  TSMESH(D1 .L5 .03 »LR .02 . LX  I 

C  - CALCULATION  OF  COUNTERPOISE  STRATEGIC  POINTS 

IF ( NOC.LE .0  I  GO  TO  75 
LR  =0 

DO  600  LX*  1  *  1  3 
IFtLX.LT. 9?  GO  TO  601 
FLX  *LX-8 
DO  603  LG* 1.4 
FLG-I.G 

GND* ( (4.*FLX>+FLGI/4. 

602  APDR«GND*ALAM 

IF ( APDR.GT.TWHC>  GO  TO  29 
SI-ASINFf APDR/TWHC) 

I  CP  T  *  1 

ASSIGN  40  TO  KR  S  GO  TO  66 
40  CONTINUE 

IF(0.GT.0ML)  GO  TO  604 

LR*LR+l 

D3lLR)*0 

604  IF(LX.LT.9»  GO  TO  600 
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603  CONTINUE 
600  CONTINUE 
29  CONTINUE 

PRINT  5  $  CALL  PAGE ( 1  • 

CL  I M=D3 ( LR I  .*  CCIM«D3< 1 1 
DO  69  1  =  1  *LR 
LV  =  LR+1-  I 
69  D1 f I ) *D3 I LV I 

CALL  TSMFSHIDl *LR.D2 *LX  .03 *LK ) 
134  DO  129  LV=1 *LK 
ICPT-0 

13  S  I  =  S I NTER  <  D3 ( LV ) » 

ASSIGN  ?fl  TO  KR 


RAY  OPTICS  GEOMETRY 


66  CSS  I =COSF ( S I  I 

SNSI=SINF(SI  >  $  S I  SQ*SNS I *SNS I 

AKO=EFN/AO  S  Z£= ( 1 • / AKO > -1 «  *  A<E" 1 »/ 1  1 »  + • ZE*CSSI * 

AEFT=AO*A(CE  S  DHE  =  EAC#  ( AKE-1 .  I  /  (  AKO- 1  •  >  ,  „ 

HTX(1)  =  HTE  *  HL-H2-DHE  S  HTX ( 2  )*HL-HRP  *  HCL«HL*CKM < t K ) 

IF( ICPT.GT.OI  GO  TO  77 
A*AEFT 
76  CONTINUE 

DO  62  LC«  1*2 

Z<LC)=A+HTX<lO  $  TEA(LC)*ACOSF(  A*CSSI/ZILC> »-SI 
DAILC )  =  Z( LC >*SlNF( TEA  I LCl > 


IFISI.GT.1.56)  GO  TO  63 
HPR(LC)=DA(LC)*TANF(SI ) 

62  CONTINUE 

DTX  =  AflSF( Z( 1  l-z (2)  ) 

IFISI.GT.CP12)  GO  TO  64 

AFA  =  ATANF ( t  HPR ( 2  I -HPR ( 1 11/ (DAI  1 )+DA(2>  )  ) 

R0= ( DA ( 1 ) +DA I  2 ) ) /COSF ( AFA)  $  R 1 2= ( DA  1 1 1 +DAI 2  I ) /CSS  I 

IFIR0.LT.DTX  I  RO  =  0TX 
68  CA  =  AFA-TEA(  1  )  t  TH=TEA ( 1  I +TEA ( 2  1 

DR  =  4.«HPR(  ll*HPR<2)/'(RO  +  R12) 


0A  =  CA 

CD=CA»DEG 

D=AEFT*TH 

ifid.lt.o.i  d=o, 

ONM=D*CKN ( IKI 

GO  TO  KR* !C5.28*123. 132*133*124. 40*152*153) 


26  IF<D.LT.0.01 >  GO  TO  129 
IFID.GT.DML1  GO  To  111 
ALFS=AFP+20.*ALOG10(RO) 

PFS=PIRP-ALFS 
GOD. GAIN! CA) 

GPD=2O.»ALOG10(GODI 
23  =  2 ( 2  I -Z ( 1  > 

Z4*(Z< 1 >*COSF(BA) )/2 (2  I 
IF (DH.LE.O. •  GO  TO  42 

DHD«DH*(  1 ,-(0.8*EXPF( -0.02*0) ) ) *1000. 

44  CALL  S0RB12I 1 ) *Z<2) *A.RO.BA*RE) 

AA=GAO*RE ( 1 ) 4GAW*RE ( 2 ) 

51  IF « ILS.GT.O.AND.SI.LE.SILIM)  GO  TO  35 
IF (  DR.GE.ALA2)  GO  TO  34 
I F (  DR.LE.DTRO)  GO  TO  26 
FDR* ( 1 .1-(0.9*COSF(PKL*(  DR-DTRO) ) ) J*.5 
43  CONTINUE 

CALL  RECCtSI *F.KSC* I  PL . 0 *DHD *R * P IC *RD I 

GA«-(TEA( 1I+SI  )  $  GAMD  =  GA*DEG  t  G0G»GAIN(GA) 


NOT  REPRODUCIBLE 
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RDG=Rn»GO  r, 

REC'0.0 

RFG=R»GOG 

RLG-REG 

IFfNOC.LF.O*  00  TO  500 

C  - CALCULATION  OF  COUNTERPOISE  CONTRIBUTION - 

T£G  =  ABTC-A8SF(SI+TEAQ)  )  s  TEG-ABSF < TEG> 

VFGD=2.*SINF( T£G*.5>*S0VT 

IF<  ABSF(GA)  •LT.A8TCI  VFCiD«-VFGD 

CALL  FR£n£L< VFGO.FPGD.PHIGI 

REG=REG*FPGO 

ROG«RDG*FPGO 

TRM3«PHIG+<PI2*VFGD*VFGD> 

IF(D.lT.CLIM.OR.O.GT.CCIM)  GO  TO  146 
S IC=CA 

TEC=A8SF(DTC-CA)  $  DARC=2.*HFC*SINF(CA) 

S I T 1 «-S 1 C  *  G0C=GA1N(SIT1 I 

VFCP»2.#SInF( TEC*. 5 )»SQVT 
IF(ABSF(CAt.GT,ABTC)  VFC P«-VFCP 
CALL  FRENEL I VFCP.rPCPtPHIC) 

CALL  RECC(SlC.F,ICC,IPL,l.DHD«RC.PICC»RDC) 

RLC  =  RC  * GOC 
REC=RLC#FPCP 

EXPC  =  (  TWPlLA«DARC)+PICC-f  (  PHIC  +  (  PI  2  #VFCP*VFCP>  ) 
ATRMbREC*COSF(EXPC)  s  8TRM«-RFC*SINF<EXPC> 
AT1=CMPLX( ATRM.BTRM) 

1 AT  CONTINUE 


C  - CALCULATION  OF  LOBING  CONTRIBUTION - 

IF(SI.GT.SILIM)  GO  To  135 
EXPG»( TWPILA#DR)+PIC+TRM3 

ATRM=REG#COSF(EXPGl  *  BTRM— REG*S INFI EXPG> 

C  - SUMMATION  OF  TERMS - 


136  AT2*CMPLX( ATRM.BTRM) 

WRL'CABS(G0D+ATl+AT2)  s  wr«wrl*wrl+.oooi 

PR=10.*AL0G10(WR) 

IFfD.LE.OZR>  GO  TO  148 
IF(LV.EQ.1>  GO  TO  1A8 
PL«FNA(D.OML.DZR.PRH.PZ) 

WL»10.**( *  1 *PL  ) 

149  CONTINUE 


c 


LONG-TERM  POWER  FADING 


PL'Pl-GPD 

IFID.LF.O.)  GO  TQ  38 
IFIP.LF.0SL1 >  301,302 

301  DEE*  f 1 30. *0  > /DSL  1  $  GO  TO  303 

302  PEE“130.+D-DSL1  S  GO  TO  303 

303  CALL  VZDfDEE.OGl ,0G9,AD) 

IF (CA.LE.O. >  GO  TO  32 

Ir  CA.C.E.1.  >  GO  To  33 
F  i  .5-BSPI*(ATANFt20.*AL0G10f 32,#CA>  »  > 

IF (FTH.LE.O,0>  GO  TO  33 

52  AL10  =  PL  +  (ADU3>*FTH)  S  AY-AL10-ALIM 

IF (AY.LT.O. >  A Y«0» 

53  IF ( ILB.GT.O.AND.SI.LE.SILIM)  GO  TO  22 
DO  31  K  =  1  ,35 

VD  ( K  •  *  ADt  X  >*FTH-AY  l  BD I K »  -Pt  +VE;  I K  I 

31  CONTINUE., 

DO  50  1  ,  12  • 

ALLM--ALMI K> 

IF(BD(k  )  ,GT,ALLM>  BDOO-ALLM  ' 
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50  CONTINUE 
?4  CONTINUE 

- VALUES  PUT  INTO  ISOTROPIC  POWER  ARRAY - 

NCT=NCT+1 

IFIKK.GT.l)  GO  TO  20 
2 3  PG5=PF S+GPD 
pfl=pg$+pl-aa 

PFY (NCT  » 1 )  *DNM  S  PF Y I NCT  *2 )  “PGS  S  PFYI NCT  *3) BREL 

PFY(NCT.4l=BD(12»-PL  S  PFYI NCT  .5  I *BD( 18 ) -PL 

PFY(NCT.6)*BD(24)-PL 
1?9  CONTINUE 
111  CONTINUE 


return 

C  - RETURN  TO  PWSRB - 

15  FAY=1.  S  GO  TO  17 

16  FAY=0.1  *  GO  TO  17 

c  - TROPOSPHERIC  MULTIPATH — 


20  DO  30  1  =  1  *35 
POAI I )=P(  I) 

OA ( I >=RD<  t • -PL 
30  CONTINUE 

IFIAY.IE.O.)  GO  TO  15 
IFIAY.GE.6.I  GO  To  16 
FAY* I  1 *1  +  10* 9*C0SF I (AY/6. >*P!) >  >/2. 

17  CONTINUE 

rsp=reg»fdr»fay 
IF(RE(2>.LF.0.I  GO  TO  45 
RK=-10.*ALOG10(ASPC*(RE<2>*»3> » 
ACK=FDASP  I KK I  $  WA» 1 0.** I • 1*ACKI 

46  RST*( < RSP*RSP 1+ < RDG*RDG) +WA * 
IFIRST.LE.O. )  GO  TO  37 

BK  =-f  10.*ALOG10IRST) 

IFIBK.LT. -40.  )  BK  — 40. 

47  CALL  Y IKK  I BK *POK .OK  I 
RDHK  =BK 

CALL  CONLUT ( OA  *QK  *POA  •  35  * ♦ 1 « .0. »PQC .00 
DO  27  1*1  .35 
27  BD I  I  I =QC< I l+PL 
GO  TO  23 


37  BK  *-40 .  $  GO  TO  47 


C  - L08ING  MOOE - 

22  AY*0. 

TL IM*  +  20. *ALOG10<  god+rlg+rlc 1 
BLIM*-8r>. 

00  36  K  =  1  .35 

VD(K»«AD(K>*FTH  $  BDI K  * "PL+VDIK 1-AA 
IFIBDlKl.GT.TLIMl  BDIK 1»TLIM 
IFIBD (Kl.LT. BLlMl  BDIK>»BLIM 
BDIK I=BOIK I+AA 

36  continue 

GO  TO  24 


26  FOR  *0 •  1 

32  FTH* 1 .0 

33  FTH-0.0 

34  FDRS  1 . 

35  FDR  ®0« 


j  GO  TO  43 
$  GO  TO  52 

S  AY“0«0  *  GO  TO  53 

t  GO  TO  43 

S  GO  TO  43 
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GO  TO  303 


/ 


30 

42 

45 

63 

64 
75 
74 


77 

86 

170 

122 

135 

164 

5no 

146 

140 

502 

601 


DEE=0.  $ 

DH0=0.0  5  GO  TO  44 

WA  =  .000 1  $  GO  TO  46 

HPRUC>«HTX<LC)  *  GO  TO  62 

AFA=S I  $  «0»HTX(2 )-HTXlll  $  R12»HTX 1 1 >>HTX< 2 >  S  GO  TO  68 

DO  74  LK= 1 *LX 

03<l_r>=D2(LK> 

LK  CLX 


LR  =L  X 


GO  TO  174 

HTX ( 1 ) =  HFC  $  HTX(2)=HTXl2) -HOI 

I  CP  T  =0  $  GO  TO  78 

GRD«SPGRD<LA)  S  DR»ALAm*GRD  $ 

GRO  =  SPGPD  ( l.K  )  $  APDR-ALAM4GRD  S 

S1=0.  $  DR  =  0.  S  D*DLS  T +OLSR 

ATRM=0.  $  BTRM«0.  $  GO  TO  136 
Dili) =DZR  *  L5= 1  *  S I L IM  =  0  » 


$  A=AEFT+HDI 

LD=LD+1  5  GO  TO  86 
GO  TO  121 
S  GO  TO  123 

S  GO  TO  160 


TRM3  =  0.fl 


ATRM=0.  *  BTRM»0.  *  AT 1-CMPLXI ATRM ,BTRM>  *  RLC-0.0 
GO  TO  147 

PL  =  PR  S  PZ  =  PR  S  Wl«=WR  *  GO  TO  149 

BTC=SOVT=0.  *  HDI-HTE  S  GO  TO  503 

GND=GLD( LK •  $  GO  TO  602 

END 


CONLUT 

Subroutine  CONLUT  is  used  in  performing  the  root-sum-square  opera¬ 
tion  involved  in  (5)  and  (13).  This  method  of  combining  variabilities 
is  similar  to  the  method  suggested  by  Rice  et  al .  [40,  eq.  V.5]  and  is 
the  same  as  the  method  used  by  Tary  et  al .  [42,  eq.  25]. 


SUBROUT  INF  CONLUT  (  A *B » C «N *R ,RHO *P ,0 > 

C  ROUTINE  FOR  MODEL  AUG  73 

DIMENSION  At  1 ) ,BI 1  I ,C( 1 ) tPI 1) «D< 1 1 «XI lOOl.Yt lOO> 
DIMENSION  Z I  50  ) 

IF<A<N>.lT.AIl>)  GO  TO  10 
DO  11  l-l.N 

11  XI  I  >»A(  I  ) 

12  IFIB(N) .LT.BIl ) )  GO  TO  13 
IFIR.LT.O.)  GO  TO  14 

15  DO  16  !>1»N 

16  YdliBIII 

17  DO  18  I  ■ 1 »N 
PI It^CI  II 

IF ICI I  5. GT.. 499. AND. Cl  I ) .LT..501 1  M«1 

18  CONTINUE 

Z ( M ) bX I M ) 4 ( R*Y ( M* » 

DO  19  I  <•  1  »N 
I F 1 I.EQ.M)  GO  TO  19 
YA»X I l ) -X (M •  *  YB-YIII-YIMI 

YU-SORTFI I YA*YA»+IYB*YB1+I2.*R*RhO*YA»YB> > 
tFI I.LT.M)  GO  TO  20 
Z< I  I «Z  <M> +YU  ,  *  GO  TO  19 

20  Z( I 1«Z(M)-YU 

19  CONTINUE 
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DO  23  I =1 *N 
K-N-I+l 

23  D( I  )»2(K) 

RETURN 

10  DO  21  !«3  »N 
K«N- I  +  l 

21  XI  l  )«A<X> 

GO  TO  12 

13  IP<R.LT.O.»  GO  TO  15 

14  DO  22  I  *  1  *N 
K-N-I+l 

22  Y I  I  l«B  ( K  I 
GO  TO  17 
END 


DEFRAC 

Subroutine  DEFRAC  is  used  to  calculate  attenuation  at  the  radio 
horizon  and  other  parameters  associated  with  the  diffraction  region 
(sec.  A. 4. 3).  Some  of  these  parameters  are  used  in  line-of-sight 
calculations,  e.g.,  (81). 


subroutine  defrac 


c  subroutine  to  compute  diffraction  attenuation 

C  ROUTINE  FOR  MODEL  AUG  73 


5  FORMAT ( 5X  «  4F7. 1 *F8 .4*2F8. 3 ) 

6  FORMAT (5X.10F7.1 .F8 . 4 . 5F8. 3 iF7 . 1 ) 

7  FORMAT ( 5X  *  6F7 . 1 .F8 . 4 . 5F8 . 3  * p7 . 1  I 


51 

FORMAT ( OX -#DL7 

DL8 

TEC1 

TEC2 

X4  04  AV4 

GH7 

ARK 

AxS  *) 

52 

FORMAT (5X*2F7.1»3F8.4 

.8F7.1  1 

57 

FORMAT (8X,*Ak3 

AX  4 

D 

DX4 

GH1 

X  AFD  SWP 

AWD 

AX  5 

DK5*) 

60 

FORMAT  1 8X  *»AR3 

AR4 

03 

D4 

AX  3 

X  GH1  GH2 

W 

AMD 

AED 

SWP 

61 

FORMAT  I 8X  **AR3 

AR4 

D3 

04 

W 

71 

FORMAT! 10X»W*,14X»D*» 

14X*DLS*.12X*0L*I 

70 

FORMAT  1 4 ( 2 X » El  5 

.511 

TE4  AC3  D3  AC 


GH2  W  AMD 

AK4  D  0X4 
AWD  AX  5  D<5*> 

AMD  AED*  > 


COMMON/DI FPR/HT  »KR  »DH» AEDt AMD* DLS1 *DLS2  *  I PX*KSC*HLT *HRP t AWD*$WP 
COMMON/ PAR AM/HT£*HRE  *D*DLl*DL2iENStA*F*ALAK*TEl *  TE2  *KC *GAO * GAW 
DIMENSION  ESI  7 • *EE ( 7 • 

REAL  K1*K2*K3*K4»KS»K6 

DATA(ES«5.**02*.005. .001 *.010..010*10.E*06> 

DATA! E  E  ~  8 1 • *25* • 15*  *4#  »8 1 « *  5  .  * 1 • ) 

F NC (C » »4 16. 4* <F**TH!RD 1*11.607-0 
FND(C>».36278/UC*FI**THIR0*< ( ( E-l , ) **2  + ( X*X I » *«»25 ) » 
FNf(CI-C*SQRTF(E*F+X*XI 
PI  *3. 1 41592654 
IPOL ■ I PX- 1 

TH1RD-1./3.  *  TWTRD«2./3. 
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HI  E=  1 000 •  *HTE  $  H2E«HRE*1000. 

HST=HT-HLT  $  HSR"HR-HLT  S  HLR-HLT 
HL 1 = ( HLT-HRP )  $  HL2-HR-HRP 

HP  1 =HL 1* 1000 •  $  HP2«HL2*1000.  S  ALAM»ALAK*1000. 

S=ES(kSC)  $  E«EF ( KSC • 

DLS=DLS1+DLS2  $  DL"DL1+0L«!  S  TE-TE1+TE2 

CW=0.9  $  CU«  *193573364  S  TWA"2.»A 

X=18000.*S/F 
A1«DL1*0L1/(2.*HTE) 

A2=DL?*DL2/<2.*HRF> 

K1*FND< Al ) 

K2=FND( A2 I 

I F ( IPOL.EQ.O)  GO  TO  3 
K1*FNE<K1 I 
K2=FNE<K2 ) 

CONTINUE 


CALCULATION  OF  GHBAR  AND  W 


B5= 1 «  607-K 1 
B6= 1 . 607-K2 

GH1 =GHBAR ( F* Al .B5 . K 1 .DL 1 .HIE ) 
GH2=GHBAR(F*A2<B6.K2»OL2 .H2E) 

AK3=6.-GH1-GH2 
IFID.GE.DLS*  GO  TO  41 
IF(D.LE.(CW*DLS) I  GO  TO  50 

W=0 . 5* ( l.+COSFt ( P I  * ( DLS-0  > >/<DLS*( 1,-CWl > ) ) 

C  - PRINT  STATEMENTS - 

PRINT  71 

PRINT  70«W,D.DLSiDL 
CALL  PAGE ( 2 1 

IFIW.LT. .001  I  GO  TO  45 

C  CALCULATION  OF  ROUNDED  EARTH  DIFFRACTION 


42  CONTINUE 

D3=DL+.5» (A*A/F)** THIRD 
DL7-CL1  *  DL8«=DL2 
ASSIGN  25  TO  JD 
IF  (D3.LT.DLS)  D3»DLS 
30  D4-D3+I A*A/F)**THIRD 
T3-TE+D3/A 
T4-TE+D4/A 
A3" ( D3“DL ) /T3 
A4"(D4-DL)/T4 
K3-FNDIA3 1 
K4»FND< A4  I 

I F  ( l POL  -  0 1  GO  TO  2 
K3«FNE(K3» 

X4-rNE(K4l 

2  continue 

B1 »FNC ( K  1  ) 

B2»FNC (r 2  t 
B3»FNC ( K 3  ) 

B4-FNC (K4  ) 

X1"B1»DL7/A1*«TWTR0 
X2«B2*DL8/A2»»TWTRD 
X3*XMX2+(B3»(D3-DU/:  A3**TWTRDII 
X4-Xl*X2*(B4*(D4-r>L  )/(  A4»*TWTRD)  » 
IFIKl.GE.l.t  X1-. 99999 
IFIX1 .GT.200.)  GO  TO  17 
IFIKl. LE. 00001 »  GO  TO  16 
XLl"4  50./AlbSF(  ALOG10U1  »*«3» 

IFIXi .GE.XL1 )  GO  TO  16 
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FX  W0.*AL0G10(K1  )  *•  1  2 . 5*  1 .  E-5*X1*X1 /X  1  1-15. 

20  IF1K2.GE.1.)  K2  =  . 90999 
IF1X2.GT.200. »  GO  TO  19 
IF1K2. LF. OOOOl  )  GO  TO  18 
XL2=450./ABSF(ALOG10(K2>**3> 

IFIX2.GE.XL2)  GO  TO  18 

FX2=20.*AL0G10(K2)+(2.5*1.E-5*X2»X2/K2>-15. 

21  GX3*.05751»X3-10.*AL0G10(X3) 

GX4-.0575 l«X4-10.*ALOGlO(X4 ) 

AC3-GX3-FX1-FX2-20. 

AC4-GX4-FX1-FX2-20. 

GO  TO  JD. (25  *26) 

17  FX  1  * . 0575  l*Xl-(  10.*ALOC-10(X1 )  ) 

I F ( XI. GT, 2000. )  GO  TO  20 
W1=.0134*X1*EXPF(-.005*X1 ) 

FX1«W1*(40.*ALOG10(X1)-117.)+(1.-W1>#FX1 
GO  TO  20 

16  T*40.*ALOG10(X1 1—117. 

T1--117. 

T2  =  MIN1F( (ABSF(T) ) ♦ 1 ABSF I T 1 ) I  I 
FX  1  =T 

IF  ( T  2  =  ABSF ( T 1 ) I  FX 1 *T 1 
GO  TO  20 

19  FX2*.05751*X2-< 10.*AL0G1 0 ( X2  I  I 
IF1X2.GT.2000.  )  GO  TO  21 
W2».01 34*X2*FXPF(-.005*X2) 

FX2=W2* ( 40. *A LOG 10IX2I-1 17. »  +  ( l.-W2'*FX2 
GO  TO  21 

18  T«40.*AL0G 101X21-117. 

T1--117. 

T2«MIN1F( (ABSF(T) ) . 1 ABSFITl »  )  ) 

FX2-T 

IF  1 T2  ■  ABSFITl ) )  FX2«T1 
GO  TO  21 

25  AR3*AC3  S  AR4-AC4 
DR4-D4  S  DR3-03 

AMS-l AR4-AR3 I /( 04-03 )  *  AES"AR4-AMS*D4 

IF1W.GT..999)  GO  TO  43 


C  CALCULATION  OF  SINGLE  KNIFE  EDGE  WITH  GHBAR 


45  continue 

IF  (HL  1 . LE  *0 . )  GO  TO  43 
TH1»ATANF( (HST/pLl 1-lOLl/TWA) ) 
TH«ASINF(CU*SORTF(D/(F*OL1«OL2) I  1 
TH5«- 1 -TH+THl I  s  ATH5-A*TANF(TH5I 
DLK5--ATH6  +  S0RTF1 ATH5*ATH5*( H5R*TWA  I  I 


29 


26 


DX6.0LK5-t-Pul 

TE5«ATANF< 1 -H5R/DLX5 » - 1 DLK 5/TWA  I  I 
TH5.TE1+TF5+1DX5/AI 

TM5*r.0RTF(  (F»PLl«DLK5»/OK5»  *  V5-2. 583*SINF  I  TH5  I  •  T*5 

CALL  FRENEL1V5.FV5.PH5) 

AV5«-?0.»AL0G10(FV5) 

AMK6*( AV5-AK3 1/10X5-0) 

AWX»AX3-*  AMK5*D ) 

0LST7-S0RTFiHLl«TWA)  *  OL SR7-S0RTF 1 HL2*TWA> 

0L7*DL  S  T  7  *  DL8-OLSR7  S  DL-OL7+OL8 

0LX4-DL 

ASSIGN  7 6  TO  JO 

Al«  IOL7»OL7)/(2.*HL1 )  $  A2« 1 DL6*DL8 I / 1 2.*HL2 I 

XI «FND (All  %  K2-FN01A2I 

I F  1  I POL.FQ.O )  GO  TO  29 
X 1 »FNE 1 X 1 )  $  K2-FNE1K2) 

TEC l *A  T  ANF 1 1 -HL 1 /DL7 »- 1 0L7/ TWA  I  I  «n  c 

TEC2-ATANF1  (-HL7/OL81-10L8/THA)  )  NOT  REPRODUCIBLt 

TE*TEC1*TEC2 
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D3=DL+.5*  <  A*A /FI**  THIRD 
GO  TO  30 
26  B7=1.607-K1 
B8  =  1.607-J<2 

GH7«GHBAR  <F»A1.87»ia«DL7»HPl) 

AC7=< AC4-AC3 ) / < D4-D3 >  $  ARS*AC4-AC7*DLK4 

ARL«ARS*AC7*DLK4 

T£4  =  ATANF< ( ( HL T-HR )  /DLK4 ) - (DLK42TWA *  I 
DK4  =  D|.F4+DL1 
TH=TEl+ff 4*(DK4/A) 

TM2=SQRTF< ( F*DL 1 *DLK4 > /DK4 )  i  V4-2 .583*31 NF I TH ) *TM2 

CALL  FRENELtV4.FV.PH) 

AV4=-20.*ALOG10<FV  ) 

AK  5“ AV4-GH1 -GH7+ARK 

AMKO=(AKS-AK3>/(OK4-D)  S  AE»AK3- I  AMKD*Dl 

c  - PRINT  STATEMENTS - 

PRINT  51 

PRINT  52»DL7*Di.8.TECl*TEC2.TE4»AC?*D3*AC4.D4»AV4»GM7 »ARK • AKS 
CALL  PAGE  <  2  * 

AK4«  AEK+DK4*AMKl>  %  WK-l.-W 

AK5«AWK+DK5*AMK5 

IFIW.lT. .001 >  GO  TO  36 


C  COMBINATION  OF  ROUNDED  EARTH  AND  KNIFE  EDGE  DIFFRACTION 

AT3*IWK*AK3>  +  (W»IAES  +  (AMS»D> I  ) 

AT4«(WK*AK4>4-<W»<AES+<AMS*nK4)  »  > 

AT5«tWK*AK5>+IW*(AFS+(AMS«DK5>> > 

AMD«tAT4-AT3)/<DK4-D>  S  AED- AT  3- 1 AMD*D > 

SWP=<AT5-AT3l/<DK5-D)  *  AWD- AT3->  I  SWP*D  > 

C  - PRINT  STATEMENTS - 

PRINT  60 

PRINT  6  *  AR3 . AR4 .DR3  «DR4 » AK3 1 AK4 . D.DK4 .GH1 .6H2  *W. AMD  » AED.SWP . AWD. AK 

X5.DK5 

CALL  PAGE ( 2  * 

c  - 

RETURN 

36  AED*AEK  *  AMD-AMKD  *  SWP-AMK5  »  AWD.AWK 

C  - PRINT  STATEMENTS - 

PRINT  57 

PRINT  7.AK3.AK4.D.DK4.GH1  »GH2  *  W • AMD. AED.SWP. AWD t AK5  .  DIC5 
CALL  PAGE (2  I 

C  - 

RF  TURN 


4l  1 .  *  GO  To  42 

43  AED-AES  *  AMD»AMS  *  AWD«AES  *  SWP-AMS 

C  - PRINT  STATEMENTS - 

PRINT  61 


PRINT  5 'AR3  *AR4  »DR3  *DR4  *W.AMD» AED 
CALL  PAGE  12  I 

C  - 

RETURN 

50  W-0.  *  •  GO  TO  45 

END 
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DELTA 


t 


Subroutine  DELTA  Is  used  In  the  calculation  of  attenuation  for 
scatter,  Specifically,  it  is  used  to  obtain  values  of  Aa  and  A6  for 
(lb.1)  nnd  (154).  DELTA  is  based  on  CCIR  recommendations  [7,  fig.  18], 


SunHOOr  |Nk  DfLTAI  ARfi .  OS  ,FNS  .DAO  > 

c  nonK  I Nt  for  model  aug  7? 

C  MOOT  INC  TO  CALCULATE  CORRECTION  FACTOR  FOR  ALPHA  AND  BETA  NOUGHT 

DIMENSION  THAUt  I  *A<41  *4  •  »DU1  .A  )  *C<  *1  *4) 

DIMINSION  SNStAi 

PA  I AI5N4»?40»  *301 . *350. mOO.  ) 

OAT  Av  TOA"G  >0  *  *0025  *  *005  .  .00  73  .  .0 1  ,  .0  125  « .015 ,  .01  75  ,  .02  .  .0225 ,  .025  * 
X.07  7S-.P ‘2b*,035*.0375*.04,,04:>5*.045*,0475*.05*.0525*,055*.05 
*7*',,06»,V62S  ■  *065 *.0675* *07 *.0725 *.075 *.0775 *.08 ,.0825 *.08 5*. 0875* 
X.  0<»*.(VT?5*.  09*;.,  0*175,  .11 

DATA  HI  Al  I*J)  ,  I 'A *41 1*  J-I,4>*,?3..32,,42,.5,,6*.68,.76,.83,.92,io0 
X2 *\. 1*1. 16, 1.23*1, 31 *l,*8* 1 .63,1.5,1 .55* 1.59,1. 62* 1.58*1.7,1.72,1. 
X 74 ,1.76 ,1.78 *1.8 *1.82 *1.82, 1.83, 1.83, 1.85* 1.85*5 ( 1.871,1.85,1.83,1 
X, B3i. 6 2 ». 7 2, .8, 2.1.0 *1,11,1.?. 1.29, 1.59,1. 4 5,1. 53*1. 6*1. 7,1. 77,1 

X.  (1?  *1  ."*1  .*»6 , 2.0,2.05  ..’.l  *2.  i  •*,?.  15,2. 17,5(2,181  17,2.16,2. 15*2. 

X  13, 2. 1*. 2.  I  2 *2. 11  *2.09. 2. jb. 2.03, 2. 00, 1.99, 1.97 *1.22 *1.3 1*1.4 *1.5* 

XI.  50 *1.6 7. 1.13*1. 02, 1.9,2. 0*3 .0  5, 2. 13*2. 2*2. 28, 2. 33*2. 4*2. A3, 2. 5, 2 
X.  •  2*?.  •■7,6 12. 61*  2. 58*2. 57*2, 5:*2. 51. 2. 49  *2. 46*2. 42  *2. 39*2. 35.2. 3*2 
X. 2 7, 2*22*2.  1  1  ,2. 14.; >.1.1. 9, 2.0.?, 09, 2, 16, 2. 22, 2. 3. 2. 3 9, 2. 45* 2. 5 1,2 
X.61  *2.06.?,  12  *2,78 » 2.82* 2.39*2. 93  *2. 99* 3.0,3. 05 *3, 07*3 ( 3.09) ,3,07, 
X 3, 04* J,n;, 2* 9 9 *2, 9 5.2* 9 *2, 8 7, 2, 82, 2*79, 2. 7 3 *2, 69, 2. 63*2.58, 2,51*2. 
X*.l,?.4.,'’.1f  .  2  .  J  r ) 

PAT  A  I I  I  PI  I*. 1 1 *1*1 *41 )»J«l*4l»“. 12»“. 08*0.0, ,12  *,25, ,4*. 52* .7, .82*. 
X96  * l  .00  *1  .22*1 .32*1  .42* l.bl ,1  ,6*1 .7, 1.77*1  .83, 1.87, 1.93* 1.98,2.02, 
X2.06 *2.  12 *2. lb *2, 19,2*22, 2.25,2.28, 2.31 *2.33 *2.36*2. 4,2,42 *2,45 *2* 
X4 8 , 2. 4, 2, 52, 2. 45, 2, 58*. 1 2*. 1*. 5*. 65*. 82 *1.0, 1.1 7  , 1.32, 1.5 1*1,6 7,1. 
X82, 1.9 7. 2. 1  1  *2. 24, 2, 32, 2.49,2. 6 1,2.69,2. 8 *2. 8 7, 2.94, 3.02,3,06, 3, 11 
X*3. 15, 3, 2, 3. 22, 3. 27, 3. 31, 3. 33, 3. 37,3. 4, 3. 44, 3. 4  7*3. 5, 3. 53*3. 56, 3. 5 
X8 ,3.6  1  ,3.62,3.44,.  17.. 59  ,.89, 1.  18*1.45,1 .7,1  .95,2.  18,2,39,2.58,2.7 
X6, 2. 9, 3, 0  4, 3, 17, 3, ?]*■),  A  1*3. 5, 3.6, 3, 68, 3. 77, 3. 83, 3.91, 3.97, 4. 03,4. 
X08*  4. 13,4,1‘»,4.?3  *4. 27, 4, 33, 4.  (6, 4.4,4.46,4.47, 4.52, 4. 56, 4.6, ',.63, 
X4, 66*4,6''  *4 ,73*. 4 5* id6*l. 2 4 *1,63*2. 0*2,32*2*63*2. 9*3, 17*3*4*3, 62*3 
X. 71 .3.09,4, I  4  , 4. 28. 4, 43, 4,54, 4, 65, 4, 74, 4.84 ,4.92,5. 01,5. 07,5, 13, 5. 
X i  ,5. 26  1 5. 3 1, 5. 36, 5.4 1,5.45, 5. 49, 5. 63, 5. 57, 5. 52,5.65,5.68, 5. 72, 5. 76 
X,  5. 0,5, B4» 5. 88) 

DATA!  MCI  I  »JI  » 1*1,41  )  *J*1»  4»  -»2 .68 , 2. 59 ,2 . 5 1 , 2 .43 ,2 . 34 ,2 . 26,2.18,2. 
X09* 2. 01,1.95, 1.84, 1.76* 1.69, 1.6 1,1. 54, 1.48, 1.4 1,1. 36, 1,26, 1.2, 1.16 
X*) .10*1. 07,1.04.1. 01 j.98*»04*. 91*. 88*.87, 4 ( *861 *3( ,d5)v»86*.06,«87 
X*  .88  *  3. 13  *3.0 1  -2.87, 2. 7.4  *1.67, 2, 56*2. 45, 2.34, 2.24*  2. 16,2.05*  1.96,1 
X.  86. 1.76, 1.68, 1.58, 1.5 1  ,1. 4 3,  1.3 3, 1.3 1,1. 23, 1.  1 9, 1.1 5, 1.12, 1.08,1. 
XO 4, 1.01, .97, .93*. 09*. 84 *.76, .71*. 64, .61*. 57, .53, .51, .47,. 4 2,, 40, 4. 
X15, 3. 92,3. 72, 3. 5,3. 32, 3. 12  ,2. 91, 2. 74, 2, 58,2. 41  , 2. 25, 2. 12, 1.97, 1.83 
X»1 ,75, 1.65, 1.56.1, 45, 1.38*1. 28, 1.24, 1.17, 1.11, 1.05 *1.0,. 95 *.85*.8, 
F.79, . 75,. 72.. 66*. 62*. 58,. 53,. 5 1*. 49*. 47*. 43*. 41*. 4, 5. 55, 5. 18, 4. 85* 
X4. 5 5, 4. 3. 4. 0  7, 3  .83, 3, 68, 3. 5, 3. 35, 3. 2, 3, 08 ,2. 95 ,2. 82 ,2. 72 ,2. 62 *2. 53 
X, i, 47, 2. 4, 2. 3 1,2. 27,2. 2, 2. 15, 2. 11, 2. 07, 2. 02, 2. 0,1. 97, 1.93* 1.9*1. 89 
X*  1 .07,1.04, 1.82 .1.6*1.79*1 .79*  1.78*1 .77*1.76*1.75) 
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IFtARG110ilO.il 

10  I  *  1 

GO  TO  1? 

11  IFtARG-.l 1 13.14.14 

14  t r  4 1 

GO  TO  12 
13  00  15  1*1.41 

IF  t  ARG-T BA( I t  ) 16.12.15 

15  CONTINUE 

16  RATA=(  ARG-TBAt  I-ll  )/<TBA(I)-TBA(  I-l  >  > 

ASSIGN  20  TO  Kl 

17  IF(ENS-250. 1  18.18. 19 

18  J  =  1 

GO  TO  30 

19  IFIENS-400. >31. 32.32 

32  J«4 

GO  To  30 
31  DO  33  J* 1  .4 

IF(fc‘NS-SNS(J>  >34.30.33 

33  CONTINUE 

34  RATN»(ENS-SNS< J-l) I / ( SNS  <  J i -SNS! J-l >  > 

ASSIGN  22  TO  MI 

GO  TO  <1.(20.211 

12  ASSIGN  21  TO  <1 
GO  TO  17 

30  ASSIGN  24  TO  Ml 
GO  TO  <1.(20.21) 

20  CALA=RATA*( A( I.JJ -A ( I - 1 c J>>+A(!-1.J> 

CALB. RATA* C  B ( I »J)-B( I- If J>  >*B( I-l.J* 
CALC*RATA*(C( I .J>-C( I-1.J>  >+C( I-1.J> 

GO  TO  MI. (22.24.231 

21  CAL A=A ( I.J) 

CALB=n( I.J) 

CALC. CI I . J> 

GO  To  MI. (22.24.23) 

22  CAI.HA*CAL  A 
CA  LHB  =  CAL  B 
CALHC=CALC 
ASSIGN  23  TO  MI 
J=J-1 

GO  TO  <1.(20.211 

23  CALA=RATN*(CALHA-CALA)+CALA 
CALB-RA  TN*  < CALHB-CALB ) ♦CALB 
CALC=RATN*(CALHC-CALC)+CALC 

24  DAO  * .00 1* ( ( .01 *DS* ( CALBn .001 *CALC*D5 ) ) “CAL A  > 
IF ( DAO) 27.28.28 

27  DAO'0.0 

28  RETURN 
END 

FDASP 


Function  FDASP  is  used  In  calculations  associated  with  tropospheric 
multipath  (sec.  A. 4. 6  following  eq.  195).  It  used  the  7F  tables  which 
are  tabulated  in  this  section  under  TABLES  to  obtain  the  variable  K.  The 
K  value  obtained  has  a  sign  that  is  the  opposite  of  that  used  in  (6),  and 
elsewhere  [40,  fig.  VI],  but  the  same  as  that  of  Norton  et  al.  [38, 
table  1]  from  which  the  data  were  taken. 


146 


f 


FUNCTION  FOmSPISI 
C  ROUTINE  FOR  MODEL  AUG  73 


C 

c 

c 

c 

c 


K  IS  BASED  ON  RATIO  OF  S  TO  .990 

THIS  NAKAGAMA-RICE  DIST.  HAS  TABLES  FROM  NORTON  55  IRE  PAGE  1360 
THE  VF  TABLES  ARE  THE  NEGAT t  VE  OF  THE  <  IRE  TABLES  AND  THEREFORE 
R  »  -$ 

K  HAS  THE  OPPOSITE  SIGN  OF  101  BUT  THE  SAME  AS  THE  IRE  PAPER 


COMMON / VV / VF 136.17) 

AVEFI  YN.XN, YN1.XN1.T  YNl*<  T  -  XN)  -  YN*(T  -  XNlM/IXNl  -  XN) 
Rc-S 

00  1  I  =  1 » 1 7 
I F ( R-VFI 27*1 1 )  3.2.1 

1  CONTINUE 
1  =  17 

2  AK« VF  1 1 . ! ) 

GO  TO  6 

3  IF ( I.EO.l )  GO  TO  2 

AK  =  AVEF('/F(l.I-lI  .VFI  27.1-1 )  .VFIl.  II,  VF(  2  7,1  >,R) 

6  FDASp.AK 
RETURN 
END 


FDTETA 

Subroutine  FDTETA  is  used  in  calculations  for  the  scatter  region 
(sec.  A. 4. 4)  to  determine  values  of  F^g  for  (169).  It  uses  the  TALD/ 
TAFL  which  is  based  on  data  from  CCIR  recommendations  [7,  sec.  11.1], 
and  is  tabulated  in  this  section  under  TABLES. 


SUBROUTINE  FOTETAl El .01 ,SI ,DB I 
C  ROUTINE  FOR  MODEL  AUG  73 


C  SUBROUTINE  TO  CALCULATE  THE  ATTENUATION  FUNCTION 


DIMENSION  TA0I25I ,TAFDi?5,4> 

DIMENSION  TSI7I »FNS(4l .DBS(2> ,DBT<2) 

COMMON/DL AT /T  ALD( 20  I . TAFL ( 4 . 7 . 20  ) 

35  FORMAT  1 5 1H  DlHt  TA  IS  TOO  LARGE  FOR  TABLE,  USE  GRAPH  MANUALLY) 
DATA! ENS=250. » 301 . , 350 . . 400. ) 

DATAtTS=.01,.l».?,.3».5,.7,l*l 

DATA(TAOS.01».02».03».04,,06,.08,«1,.2,.3»»4,.5,. 6».7,.8,.9,1.,2», 

X3.  ,4.  ,5. ,6. ,7. ,3. ,9. .10. ) 


DATA! ( ( TAFDI I.JI.' *1, 25). J*  1  . 41=79.5.88.5. 93. 9, 97, 5. 132. 9.106. 7, 10 
X9.6, 118.S, 123. 9. 127.7, 130.6, 13 3., 135. .136.8,138.3, 139,9.149.2,154. 
X9, 158. 8,162. ,164. 6, 167. ,169. ,170. 9, 172. 5, 75. 6, 84. 7,90. 2.93, 8, 99. 3, 

XI 03. »10o. .115. ,120. 3,1 24, ,126. 9.1 29. 3, 131, 4, 133. 2, 134. 6. 136. 1,1 45, 

X3»  151,,  155, .158,4,161., 163.4,165. 5, 167.4,169, 2.71, 2,80.3, 85. 7, 89, 5 

X,  94,8.98. 5, 101.5 ,110.5,1 15. 8. 119, 6, 122. 4, 124,9.126, 8, 128. 7, 130. 3,1 
X31. 8, 141. 2. 146. 8. 150. 9. 154., 156. 8, 159. 2. 161. 2, 163. 1.164, 7. 64. 6. 73. 
X 8.79,2  ,83.0 ,88. 4,92.1 ,95.1 ,104.2,109,5 ,113.3, 116. 2, 118.6, 120.6,122 
X. 4  .  124,,  125. 4, 134, 5. 140, 2, 144, 4, 147. 7, 150. 5, ’53.. 155. 2, 157, 1,1 59.) 
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E*£l 

D=DI 

S-Sl 

DO  10  1-1*4 

if<e-ens<  i><n»n.io 

10  COMl INUE 

11  1F( 1-1)12*12*13 

12  1-2 

13  J-I-l 

RTE-(E-ENS<J> >/<ENS( I >-ENS I J> ) 

! F (D-10  # » 14*14.33 

14  DO  16  K«1  *25 

IF  (D-TADOC)  >17*17.16 

16  CONTINUE 

17  IF  t <  —  7 118*18*19 

1 8  PC-2 

19  L-F-l 

RTD*<0-TAD<L>  > / < TaD < K > -TAD  1 1 ? ) 

D81-(RTD*iT4FD<K*I >-TAFD<L.I >  >  > ♦TAFDIL » I > 
DB2-IRrD*t  TAFDU»J>-TAFDIL»J>  >  >+TAFDIl»J> 

PB- <RTE* ( D91-DB2  > 1+D32 
GO  TO  20 

33  IF ( 0*1000. >13*19*34 

34  PRINT  35 
CALL  PAGE! I > 

OB-0. 

GO  To  20 

15  00  21  PC-’.* 20 

IF  ( D-TALOIPC  >  >22*22*21 

21  CONTINUE 
K-20 

22  IFIK-1 >23*23*24 

23  K *■? 

24  L  =  PC-1 

RTD* ( D-TALDl L  >  >  / 1  TALDI K >“TALO(L  >  > 

IFIS-. 01)25.26*26 

25  S-.01 

26  DO  27  M* 1  *  7 
IFIS-TSIMI >28.28*27 

27  CONTINUE 

23  IFIM-I >29.29*30 

29  M-2 

30  N-M-l 

RTS-IS-TS«N>  >/(TS(Mt-TSIN> 1 

DO  31  KL-1.2 

J-FC 

DO  32  N-1.2 

DBS ( N • - < RTD* I TAFLI I »J.K I-TAFL ( I *J»L>  >  >*T7FLI I *J*L> 
J-J-l 

32  CONTINUE 
I-I-l 

DBT (KL  > ■( RTS* ( OBS( 1 >-0bSI2  >  > >*DBSI2> 

1 1  CONTINUE 

DB-(RTE*(OBTt 1 >-DBT 1 2  > • >+0BT<2> 

2C  RETURN 
END 
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FRENEL 


Subroutine  FRENEL  is  used  in  knife-edge  diffraction  calculations 
to  determine  the  loss  factor  and  phase  shift  associated  with  diffracted 
waves  (see  text  following  eqs,  77  and  121).  It  is  based  on  the  Fresnel 
integrals  [40,  sec.  III. 3]. 


SUBROUTINE  FRENEL(V.FV,PH» 

C  ROUTINE  FOR  MODEL  AUG  71 

C  SUBROUTINE  TO  CALCULATE  THE  FRESNEL  INTEGRAL 

DIMENSION  A(  11  >  «B<  11  )»GU1  >  »D<  1 1 ! 

COMPLEX  P2.SZ.CZ 

DATA  < A=- 1.702E-6, -6. 808568854, -5. 76361E-4, 6. 920691902, -1. 68986 57E 
X-2  ,-3.050  48566  ,-7. 5 7524 1 9E-2 ,8 . 5066378 IE- 1 , -2 . 563904 1 E-2  ,~1 . 502309 
X60F-1.3.4404779E-2I 

DATA<B=4.255387524.-9.281E-5.-7.7800204,-9.520895E-3,5.075l6129B.- 
X 1. 3834 194 7E- 1. -1. 363 729 1 24. -4. 0 334 9276E-1 ♦ 7. 022220 16E-lt-2. 1619592 
X9E-1. 1 .9S47031E-2 ) 

DATA  (G=-2.4933975E-2.3.936E-6.5.770956E-3.6t89892E-4,-9.497136E-3 
X,l.l948809E-2,-6.748873E-3.2.4642E-4,2.102967E-3»-1.21793E-3,2.339 
X39E-4 I 

DATA  (D=2.3E-8,-9.351341E-3.2.3006E-5.4.851466E-3.1.903218E-3»-1.7 
X 12291 4E-2 ,2. 906406 7E-2 .-2.7928955E-2, 1 .6497308 E-2  ,-5»  5985 15E-3 » 8,3 
X8386E-4 • 

P I  =  3. 141592654  S  TWPI»2,*PI 

IFIV.EO.O.)  GO  TO  71 
IF ( V.GE.5  * )  GO  TO  74 

PT»V*V*«  25  *  CPSI«TWPI*(PT-INTF(PTI » 

Xa V*V#P I  *  «  5 

25  IF'X.GT.4.)  GO  TO  10 
5  PX*COSF(X I »SORTF ( X/4 *  * 

PY«  S I NFI -X  I *5QRTF I X/4»  J 
SUMX=1, 59576914 
SUMY* -3  « 3  E-8 
XN*  1  • 

do  ion  i  =  l.  u 

XN*XN»X/4r 
SUMX=SUMX+A( I »*XN 
100  SUM Ys SUMY  +B ( I l*XN 
SZ»CMPLX( SUMX  vSUMY ) 

PZ'CMPLXIPX.PY) 

CZ«SZ«PZ 

C*RFAL ( C2  I  $  S-AIMAGICZ) 

GO  TO  30 

10  PX»C0SF1X)«S0RTF(4./X» 

PY«S(NF<-X>*SORTF<4,/X) 

XN-1. 

S'JMX*0. 

Sl'MYa, 199471140 
DO  200  I  ■  1.  11 
XN«XN*4./X 
SUMXrSUMX  +  G( I  I *XN 
200  SUM Ya SUMY  .0 (  J  •  XN 
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SZ=CMPLX ( SUMX  .SUMY) 

PZ*CMPLX(PX»PY  I 
CZ«SZ*PZ 

C-REAI.  <CZ>  S  S-AIMAGICZ) 

00.5  S  S-S-.5 
30  S* A6SF ( S ) 

IFIV.LT. 0.1  00  TO  70 

FV= . 5*S0RTF ( ( l.-(C+S>  >**2+<C-S) »*2> 

4.  Y-C-S  $  W«=  1  •-  (  C+S ) 

75  PH-ATAN2I Y.W) 

PH=PH-CPS I 

AP-ABSF ( PH )  S  APX-AP-TWPI*INTFIAP/TWPI) 

IF(PH.LT.O. >  GO  TO  37 

PH=APX 

39.  IFIPH.LT. 0.1  PH-TWPI+PH 
RETURN 

37  PH*- APX  *  GO  TO  39 

71  FV-.5  $  PH-O,  S  GO  To  39 

74  FV- .22 508/V  %  PH-. 78539816  $  GO  TO  39 

70  FV“ • 5*SGRTF< 1 1 .+ ( C+S > ) **2  +  ( C-S I *«2 • 

Y—  ( C-S »  $  W-l.+IC+S)  S  GO  TO  75 

END 


GAIN 

Function  GAIN  determines  the  relative  facility  antenna  voltage 
gain  associated  with  a  particular  facility  antenna  at  a  specific  eleva¬ 
tion  angle.  It  is  used  to  obtain  the  g  of  (67)  and  the  gD  of  (81). 

Gain  values  may  be  calculated  directly  or  obtained  by  interpolating 
between  values  taken  from  figure  2. 


function  gainixj 
C  ROUTINE  FOR  MODEL  AUG  73 


COMMON/GAT/IFA 
DIMENSION  R A ( 24  I  »RB I  24  I 
DIMENSION  DA(8>.Dr,<8> 

DATA(RA=-9O*i-76.»-60.»-54«»-51.5.-48.*-36.»-33.*-30.*-24.*,“18.»-1 
X2 • * -9 »  *-6 «  * -2 • 5 .0 • » 3  »  * 8 »  » 12 • .24  » .36 » • 57 • » 84 » .90. ) 

DA T A ( RB--29. » — 22 • » ~26 «  5  *— 2 7. 4 » — 2 1 • 7  »— 20. »— 5. 5  *  — 4. 2  »— 3.5 »— 4 «  5  7. 3» 

X~11.8»-10«»-3,5»-l«i4. *6.5.7, 4»7.»-l«{t*-l»5*-9«5  *-4. .-13.0) 

DATA  (DA--6.»0.*2.5*5.*7. 5.7. 51*14. 99.15.0) 

DATA  IDG— S..-6..-3. .C . .-3 .0 . -20. .-20 .01 »-30 . I 
FNAIFX. rA.FB.FC.rD>- I < FX-FB I  * ( FC-FD > / 1 FA-FB> >+FD 
A»X 

GO  TO  I  10.20.30.40.50.60.70.80) .IFA 

C  -  GAIN  FOR  ISOTROPIC  ANTENNA  - 

10  GAIN  -1.  *  RETURN 

C  - GAIN  FOR  DME  ANTENNA - - - 

20  D»A»57. 29577951 
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DO  21  1=1*8 
I F ( D-DA ( I J 123*22*21 

21  CONTINUE 
1  =  8 

22  GAIN-10. **IDGII>*. 0*0  S  RETURN 

23  IFU.EQ.l)  60  TO  22 
L=  1-1 

GD-FNAID.DAI 1 1 *DA( L  >  *DG( I ) *DG I L >» 
GAIN=10.**(GD*.05)  S  RETURN 

C  - GAIN  FOR  RTA-2  ANTENNA - 

30  D=A*57. 29577951 
DO  31  1=1*24 

IF (D-RA ( I  1)33*32*31 

31  CONTINUE 

1=24  , 

32  GAIN-10. *•( (RBI I  1-7.41*. 05*  S  RETURN 

33  IFU.EQ.l  )  GO  TO  32 
L  =  l-1 

RP=FNA ( 0 * RA ( I ) .RAIL  I  .RBI  I  ) .RAIL  1  ) 
GAIN=10.*«I (RD-7.4)*.05>  $  RETURN 


C  -  GAIN  FOR  VOR  ANTENNA  (COSINE  PATTERN)  - 

40  GA!N=1 .00#COSF(A> 

IFIGAIN.LT. .12589)  GAIN-. 12589 
RETURN 

C  - - GAIN  FOR  ILS  LOCALIZER - 

50  GA I N= 1 .0O*COSF( A> 

IFIGAIN.LT. .12589)  GAIN-. 12589 

return 

C  - GAIN  for  glide  slope - 

60  GAIN-1. 00*C05F(A> 

IFIGAIN.LT. .12589)  GAIN-. 12589 
RETURN 

C  - JTAC  20  DEG  BEAM  TILT  20  DEG  H  HPBW 


70  D»A*57.?95  A  795  1 

TL  T  =  20  .  $  HPBW-20. 

TERM=PP5F(0-TLT) 

GAIN-I l.  +  l I TERM/HPBWl **2 . 5 1 )**(-0.5  > 
RETURN 

C  - JTAC  8  DEG  BEAM  TILT 

80  D»A*57. 29577951 
TLT-8. 

HPBW=1. 959545258 
TERM=ABSFID-TLT> 

GAIN=(l.+(«TERM/HPBW***2.5»)#»(-o.5l 

return 

end 
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GHBAR 


Function  GHBAR  is  used  in  calculations  for  the  diffraction  region 
(sec.  A. 4. 3)  to  determine  values  of  G^  2  and  2  for  and  (”*22) . 

These  are  special  values  for  Gpj^  2  which  is  discussed  following  (107). 

GHBAR  is  based  on  CCIR  recommendations  [7,  eq.  64,  fig.  31;  40,  eq.  7.6, 
fig.  7.2]  and  includes  a  weighting  function  [20,  eq.  17]. 


FUNCTION  GHBAR  ( F , A , B , AK ,OHOR ,H£ I 
C  ROUT  IMF  FOR  MODEL  AUG  73 

6  FORMAT ( 5X  * *K  GREATER  THAN  .1  GHBAR  NOT  CORRECT*  > 

7  FORMAT! 5X.*HBAR  IS  GREATER  THAN  100»> 

WG=2.  $  PIG"3.l4l592654 

HB=2.232S*B*B*(F*F/A)**. 33333333*1 .O01*HEI 
IFIAK.GT..1 )  PRINT  6 

IF! HB.GE.2.5 )  GO  TO  10 

IF! AK.GT..05)  GO  To  11 

IF ( HB.LT. .3  •  GO  TO  12 

GHBARe-6 , 6-1 , 67*HB+6.8*AL0G 10 ! HB ) 

13  IF(AK.LF..01 »  GO  TO  2 
GHB "GHBAR 

11  IFIHB.LT,, 25)  GO  To  14 
GHT"~5.9-1.9*HB+6.6*AL0G10<HB) 

15  I F ( AK , GT,  ,0  5  )  GO  TO  16 

GHBAR  =  GHT- ( GHT-GHR I  * ( ( ,05-AK ) /,04) 

2  CONTINUE 

FRE  »30O . »  SORTF ( ,2997925*0H0R2F) 

IF(HE.LF.FRE)  GO  TO  3 
IFIHE.GE. IWG*FRE» )  GO  TO  4 
GW" , 5* ( 1 «+COSF<PlG*( HE-FRE ) /FRF  I  I 
GHBA  R  =  G,  IBAR*GW  S  GO  TO  3 

4  GH3AR"0. 

3  IFIHB.GT.lOO.)  PRINT  7 
RETURN 

10  GHBAR»-6.6-,013*HB-2.*ALOG10(  HB) 

GO  TO  2 

12  GHBAR*  1«2~-13<5*M8+15 .  *ALOGlO  ( HB  I  t  GO  TO  13 

14  GHT— 13.9+24, 1*HB*3.1*ALOG10<HB)  S  GO  TO  15 

16  GHB-GHT 

IFIHB.LT. 0,1 1  GO  TO  17 
GHT" -4 , 7-2, 5*HB+7.6*ALOG10 ! HB  ) 

18  GHBAR«GHT- ( GHT-GHB  >  * ( ( ,  1-AK  J / .05 ) 

17  GHT—13,  j  00  TO  18 

END 


S 


GO  TO  2 


HCHNOT 


Subroutine  HCHNOT  is  used  in  calculations  for  the  scatter  region 
(sec.  A. 4. 4)  to  determine  values  of  HQ  for  (169).  It  uses  the  TAV/i'AHl 
table  which  is  based  on  data  from  CCIR  recommendations  [7,  sec.  11.4], 
and  is  tabulated  in  this  section  under  TABLES.  Function  TERP  is  also  used. 


SUBROUTINE  HCHNOT! ETAS. S.VT.VR,HO> 

C  ROUTINE  FOR  MODEL  AUG  73 

c  subroutine  to  calculate  the  frequency  gain  function 

DIMENSION  TARU14I  ,TAH0<114» 

dimension  TETA ( 7 * 

COMMON /vat /TaV< 175  I »TaH1 (7*175) 
DATA(TETA=1.*2..5.*10,.20,*50..100.) 

DATA ! TAR* .01  ,  .012 . . Ql4 . .016, .018 • .02  ,  .022 , .024  , . 026 , .028 , .03 , .032 « 
X. 036  .,04  , .045 . .05. .055 ..06 . . 06 5  . . 0 7 • . 075 . .08 . . 00 5 . . 09 .  .095  . ,  1  ..1  1  . 
X. 12.. 13. .14. .15. .16. .17. .18. .19. .2. .22. .24. .26, .28. .30, .32. .34. .36 
X.  ,38.  .4.  .45.  .5.  .55.  .6. .65. .7. .75*. 8. .85. .9. .95. 1.0. 1.1. 1,2. 1*3. 1.4 
X.  1.5, 1.6. 1.7. 1.8, 1.9, 2. 0.2. 1.2. 2. 2. 3, 2. 4, 2. 5, 2. 6. 2. 7, 2. 8, 2. 9, 3. 0.3 
X. 2. 3. 4. 3. 6. 3. 8, 4. 0,4, 2, 4. 4, 4. 6, 4. 8,?, 0,5. 2. 5. 6, 6. 0,6. 5. 7. 0,7. 5. 8.0 
X. 8. 5, 9. o,9. 5, 10. 0,12. 0,14. 0,16. 0,18. 0.20. 0,25. 0,30. 0,35, 0,40. 0.50. 
xo. 60. 0.70. 0,80. 0.40.0, 99.0  I  • 

DATA! T4HO-64. 3 .62 . 0 ,60 .0 .58 . 4 . 57.0 .55 . 7 , 54 . 3 , 53. 2 ,52.2 , 51 .2 . 50 . 3 ,4 
X9. 7,4 8,o  ,46. 8, 4 5.2.44, 0,42.8,4 1,8, 40. 8 .40 .0.39. 0,30. 2, 37, 5, 36. 8, 36 
X. 2  , 35. 7, 34. 5, 33. 5, 32. 7.31. 8, 31. 0,30. 2. 29. 6, 28. 9. 28. 2, 27. 8. 26. 6, 25. 
X7, 24. 3, 23. 8. 23. 1.22. 5. 21. 8, 21. 2, 20. 7, 20. 2,18. 9, 17. 9. 17. 0.16. 0.15. 3 
X,  14.8. 14.0, 13.42. 12. 92, 12. 4. 11.93, 11, 55, 10. 75, 10.03 ,9. 42, 8.95,8. 4, 
X8. 0,7. 6, 7. 2. 6. 05  , 6. 6. 6. 28. 6. 0,5. 75. 5. 5. 5. 27. 5. 02, 4. 81, 4. 62. 4. 46. 4. 

X3  ,4.15,3.73,3.5.3,28,3.1  ,2 .93, 2. 75 .2.6 .2. 45 ,2.35,2.2 .2.0 .1.82 *1.65 
X,l«45il«32,1.2»l,l,1.0,.92,.82,.6,.47,.38,,3f,24,,2f.l7v.l3,,1..07 

X,  .04. .02 , .01  *2(0.0  I ) 

J  =0 

IF!  VT-40.U0.il  ,11 

11  IF! VR-40. 112.13.13 

13  HO=0. 

return 

12  J»2 

GO  TO  14 
10  J“1 

IF! VR-40. 115.14.14 
1 5  J»J  +  ? 

14  Q-VR/VT 

!F  (S-.l •50.50.51 

50  ALGS«-1, 

GO  TO  52 

51  ALGS* ALOO 1 0 ( S ) 

52  IF  IQ-10, )  53.54,54 
54  ALGQ*1. 

Go  TO  55 

53  lF(Q-.H56,56,59 
56  ALGO*- 1 . 

GO  TO  55 

59  algq*alogio(qi 
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55  IF ( ETAS- 1 .J17.18.19 
1?  DEHO»3.6*ALGS*ALGO 
ASSIGN  35  TO  M 
OS'Q»S 

IF  <QS~. 999995  124.16*80 
80  IF(QS-1,000005>16. 16*24 
16  J=J+1 

24  GO  TO  (41 *42*43*44) *J 

18  ASSIGN  30  TO  M 

36  DEH0=3.6*ALGS*ALGQ 
KL  =  1 

ASSIGN  33  TO  K 

GO  TO  (21  .22*23*23) *J 

19  DEH0=6.#<  .6-ALOG10(ETAS))*Al.GS*ALGO 
ASSIGN  34  TO  K 

ASSIGN  30  TO  M 
DO  39  KL* 1  *  7 

IF (ETAS-TET A (KL> >58.57*39 

39  continue 

57  KN=KL 
RATN'l . 

49  GO  TO  (21*22.23.23) *J 

58  KN=KL~ 1 

RATN»(ETAS-TETAiKN)  )/<TETA(KU-TETA(KN)  ) 

GO  TO  44 

41  R1=VT»( l.+( l./S) ) 

GO  TO  28 

42  R1=VR«(1.+S) 

28  TTT«.S*R1*R1*< l.-TERP(Rl)  I 
H00»-10.*ALOG10(TTT) 

GO  TO  36 

43  Rl»VT#f  l.  +  U./S)  > 

R2=VR»( l,+S) 

UP=2, *( l.-S*S»0*0) 

8A5  =  R2*R2«t  TERP(R1 l-TERP<R2> I 

TTT-UP/BAS 

IF(TTTI45*45.46 

45  MCO  *0 . 

GO  TO  36 

46  H0Q'10.*ALOG10( TTT> 

GO  TO  36 

44  R1  • VT* ( 1 •  +  1 l./S)) 

R2"R1 

IF!R1-. 010)47.  47. 48 

47  HOO  =  64 • 3 
GO  TO  36 

48  IFIR1-90. 160.45.45 

60  DO  61  1=1*114 

IF (R  1-TAR  C I » >63.62.61 

61  CONTINUE 

62  HO0=TAHo( I > 

GO  TC  36 

63  l!»I-l 

MOO-U (Rl-TAR(LI) )/(TAR(I)-TAR(LI 1 > )««  TAHOI I I-TAHOIL! ) ) )+TaHOU.I) 
GO  TO  36 

21  ASSIGN  25  TO  L 

20  V=VT 

31  IFIV-. 018)32. 32*38 

32  HV=?0. 

GO  TO  L. (25*26*27. 29) 

38  DO  64  1.1*175 

I F  <  V-T  AV( I ) >64*65.66 

64  CONTINUE 

65  (CM=  I 
RAT*I, 
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nnnnn 


GO  TO  K.(33*34» 

66  I -1 

RAT  »  (V-TAVI I ) l/(TAV<KM)-1  >V( 1 ) ) 

GO  TO  K. (33*34) 

22  ASSIGN  26  TO  L 
V  =  VR 

GO  TO  31 

23  ASSIGN  27  TO  L 
GO  TO  20 

33  HV=(RaT*(TAH1( 1 *KM )-T AH1 (1*1)1) +TAH1 ( 1 » I ) 

GO  TO  L*<25*26*27.29) 

34  HV1=(RAT#( TAH1  (KL.KMS-TAHl  (XL,  I)  >  l+TAHl (KL  *  I  ) 
HV2  =  <  R  ATM  T  AH1 1 KN  *KM )  -TAH1  (KN»I)))+TAHlt  ICNt  l ) 
HVMRATNMHV1-HV2) )+HV2 

GO  TO  I  . (25*26*27. 29) 

25  HO  T  «HV 
HOR=0. 

GO  TO  37 

26  HOR“HV 
HOT«0. 

GO  TO  37 

27  HOT  =  HV 
ASSIGN  29  TO  L 
V*VR 

GO  TO  31 

29  HOR  =  HV 

37  AHO* ( HOT+HOR 1/2. 

1  F  C  AHO-DEHO> 67 *68.68 

67  H01>=H0T+H0R 

69  IFIH01 170.71.71 

70  HO  1*0* 

71  GO  TO  M. (30*35) 

68  HOI “AHO+OEHO 
GO  TO  69 

30  HO=H01 
GO  To  73 

35  HO»HOo+ ( FTAS* ( HOl-HOO )  ) 

IF(HO)72, 73*73 

72  HO  =  0. 

73  RETURN 
END 


LINE 

Subroutine  LINE  is  used  in  plotting  different  types  of  lines. 


c 


SUBROUTINE  LINE(KL,A*B,J,SKX.SICY) 
ROUTINE  FOR  MODEL  AUG  73 


ROUTINE  WILL  PLOT  THE  FOLLOWING  LINES  ACCORDING  TO  CODF  kl 

imziri  rr®  ««  » - » 
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c 


c 


c 


c 


0 1  MENS  ION  A( 1000) ,B< 1000  I 
DIMENSION  CI2000) ,0(2000 ) 

DIMENSION  X<10),Y<10>»!DH<2) 

DATA  ( IDH=3H+0X»3H+0+* 

IFIKL.EO.l*  go  TO  11 
IF  (YL.E0.8 )  GO  TO  52 

IFna.E0.?.0R.KL.E0.4.0R,»a»E0.6)  GO  TO  30 
IF(YL.EQ.9)  GO  TO  30 
SCX=SYX  $  SCY-SKY 

- <L-8  FOR  LIGHT  LINE 

18  JN= J-l 
1-0 

DO  63  Y«  1 , JN 
1  =  1  +  ] 

CUl=AlKI 
D I l  I  *B I Y  * 

CX»A(Y>/SCX 
OX  =  A( K  +  l  * /SCX 
CY  =  B( Y ) /SCY 
DY*B( Y  +  l ) /SCY 
XT=PX-CX  $  YT-DV-CY 
CL  *  50RTF ( IXT*XT)+(YT#YT> ) 

L=XFNTF(CL) 

SM=XT/CL 
SSM=YT/CL 

iriL.LE.O)  GO  TO  65 
DO  64  JY=  1 » L 
AX-CX+SM 
A  Y=  C Y  +  SSM 
1  =  1  +  1 

C ( I  )  =  AX#  SCX 
D ( I  I  =A  Y#  SCY 
CX  =  AX 
CY  =  AY 

64  CONTINUE 

65  I-I+l 
C(I  )  *A ( Y+  1  * 
d ( n  =b ( Y  +  i ) 

63  CONTINUE 

GO  TO  ( 10.12sl3« 14. 15, 16*17,18, 39* , XL 
- Kl_.  1  for  CONTINUOUS  LINE 

10  CALL  CRT ML T(0. 0.0, 0,8) 

CALL  CRTPLTIC.D. 1,0.1* 

RETURN 

- KL«9  For  DOTTED  LINE 

39  CALL  CRTPLTIC. 0,0. 0.81 
CALL  CRTPLTIC.D, I, 1,17* 

RF  TURN 

11  CALL  CPTPLT(0.0.0,0,8) 

CALL  CRTPLT (A.B.J.l »1 * 

return 

52  CAlL  CRTPLTIO.O.O.O.tt* 

CALL  CRTPLTI A.B.J.O.l * 

RETURN 

- KL»3  FOR  X  X  X  X  X  LINE 

13  I L  A*4 

ILH-IDHI 1  I 

CALL  CPTPLT<0,»0.ILH»ILA,5> 

CALL  CRTPLTIC.D. 1. 0.1* 

RETURN 

- YL=S  FOR  +  +  +  +  ♦  LINE 

15  ILA-0 

ILH# IDH! 2  * 

CALL  CRTPLT(0.»0»ILH»ILA»5) 
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CALL  CRTPLT(C.D.I.0,1 I 
RETURN 

c  - KL«2  F0R  short  dashed  line - 

12  IFII.LT.?)  GO  TO  10 
N«1 

20  L=N+1  $XN=N+2 

X I  1  )  =C  (N  »  $ Y 1 1 )  =  I) t  N  ) 

X( 2 )=C  <L  >  $Yf  2) =D<L  > 

IF  (L.FO. I)  GO  TO  19 
X  I  3  > “C I KN  •  $ Y ( 3 • =D ( KN  > 

KA=KN*1 

IF (KA.EQ.  I  >  GO  TO  23 

21  CALL  CRTPLT<0»0»0»0»8) 

CALL  CRTPLT<X,Y,3,0,1 ) 

N  =  N  +  3 

IFIN.GF.  I  >’  RETURN 
GO  To  20 

19  CALL  CRTPLTIO.O. 0.0.8> 

CALL  CRTPLTI X.Y. 2,0.1 > 

RETURN 

C  - KL“4  DASH  X  DASH  LINE - 

1 A  IF (  I.LT.3  >  GO  TO  10 
N  =  1 

22  L=N+1  $KN=N+2 

X  <  1  )  =C  f  N  >  * Y I  1 >  =D ( N  > 

X ( 2  I  =  C ( L I  t Y ( 2  I =D( L  > 

IFIL.EQ. I )  GO  TO  19 
X  (  3  I  =  C  <  K  N  >  $ Y ( 3  I =0 ( KN  > 

X A=KN+1 
X  9=  N+  5 

CALL  CRTPLT(0.0.0,0,8> 

CALL  CRTPLT(X.Y,3,0,1> 

IFIKN.EO.I)  RETURN 
XII  l-C(KA)  SYI1 >-D(KA> 

IF ( KB.EO. I >  GO  TO  31 
I LH» I DH( 1 > 

I  L  A«4 

CALL  CRTPLT(O..O.ILH.ILA,5> 

CALL  CRTPLT  (X.Y, 1,0.1  ) 

N»N  +  4 

IFIN.GE.I >  RETURN 
GO  TO  ?? 

23  X(4I*C<KA>  $  Y ( A ) *  0 ( X  A  > 

CALL  CRTPLTIO.0.0.0,8! 

CALL  CRTPLT (X.Y  .4  .0.1 > 

RETURN 

25  X I  5  I  *C ( XB I  t Y ( 5  > “0 ( X B • 

CALL  CRTPLTIO.0.0.0,8) 

CALL  CRTPLT (X  ,Y. 5 ,0. 1 > 

RETURN 

C  - KL«6  poR  LONG  DASH  SHORT  DASH  LINE 

16  IF!  I.lT.4  >  GO  TO  10 
N»  1 

26  L«N+1  tKN=N+2  5KA.N+3  SKfi«N+4 
XC-N+5  S  X.D-N  +  6  S  KE»N*7 

X<t  >  *C  I  N  >  tYI  1  )  b[)  I  N  ) 

X  (  2  >  »  C  U.  >  $Y(2).r>(L> 

IFIL.FQ.1 >  GO  TO  19 
X ( 3  > *C (KN  )  1 Y  I  3  >  *D I <N ) 

IF (XN.FO. II  GO  TO  21 
IF (XA.FO, I  I  GO  TO  23 
X ( 4  >  »C ( K A  >  ?  Y  !  4  >  ■(>  (  X  A  > 

IF (KB.EO. I •  GO  TO  25 
X ( 4  >  *C ( XB  >  *Y(5>»0(XB> 

IF (XC.EO. I >  GO  TO  27 
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X ( 6  *  =C  OCC  >  $Y(6>«0<KC> 

X ( 7 ) *C I KD •  $  Y ( 7 ) =D ( KD ) 

IFIKE.EQ.I)  GO  TO  29 
CALI  CRTPLTtO,0*0*0,8) 

CALL  CRTPLT(X*Y»7»0.1) 

N<=N  +  7 

IFIN.GE.I)  RETURN 
GO  TO  26 

_ KL«7  FOR  LONG  DASH  X  X  LINE  - 

17  I F ( I.LT.3)  GO  TO  10 
N  =  1 

28  L  =  N  +  1  $KN=N+2  SKA^N+3 
X(1)=C(N)  $Y( 1 )  =D< N  ) 

X ( 2 ) “C I L I  $Y( 2  )  =D( L  > 

IF(L.EQ.I)  GO  TO  19 
X  C  3  )  =  C  <  K.N  )  $Y  (  3  ) aD I KN ) 

IFIKN.EO.P  GO  TO  21 
IFIXA.EO.P  GO  TO  23 
CALL  CRTPLTIO, 0.0, 0,81 
CALL  CRTPLT(X,Y, 3*0*1) 

X(  1  )"C(KA)SY(1  >  »D <  KA > 

I L  A  “  6 

I LH* IDH ( 1 ) 

CALL  CRTPLT  (0,»0*ILH»11.A,5’ 

CALL  CRTPLTKtD*!  *0*1  > 

N*N-»A 

IFtN.Gt.l)  RETURN 
GO  TO  28 

27  X  (  6  1  «C I KC  t  SYI6)»0UC» 

CALL  CRTPLTt0,0,0,0,8) 

CALL  CRTPLT(X.Y,6.0.1 ) 

RETURN 

29  X  (  8  )  *C  (  KF  I  S  Y  (  8  ) »  D I II F  ) 

CALL  CRTPLT(0*0,0,0*8) 

CALL  CRTPLTlX.Y. 8.0.1) 

RETURN 

30  SCX«SKX*.5 
SCY-SKY*. 5 
GO  TO  18 

31  X ( 2 ) "C I  KB )  '  Y (2 )»D<  KB  I  *  GO  TO  19 
END 


PAGE 


Subroutine  PAGE  Is  used  to  structure  printing  associated  with 
program  runs  such  that  each  page  contains  no  more  than  62  lines  and 
is  numbered  and  dated. 


SUBROUTINE  PAGEIN) 

C  ROUTINE  FOR  MODEL  AUG  7J 
A  FORMAT  I 1H1 ) 

6  FORMAT!*  PAGE*  .  U.2  I  2X,  A8  >  > 
COMMON/EGAP/ IP  «LN, 10T  *  I  XT 
IF  I N) 10*11 *12 
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10 

|P*0 

>1 

IPUPAl 

IN*  l 

print 

6, IP, IDT 

•  1X1 

RF TURN 

li 

LN»l  Nan 

IF  <LN* 

1,  T,S3lIS 

•  1  A 

1  A 

PRINT 

* 

GO  TO 

n* 

FND 

PLTDU 


Subroutine  PLTDII  Is  used  only  in  the  station  separation  program  to 
construct  graphs.  It  Is  similar  to  PLTGRPH. 


SUHROUT  |NF'  PL  TOtl 

C  PLOT  SUBHOOT  |Nf  FOR  DOVERU 

C  HOI  IT  I  Nf  FOH  MODEL  AUG  73 

I*  format i •  capacity  of  i.ine«»!2»*  is  over  100  points*) 

2  3  FOHMAV  <  |3  ,AX  ) 

? 7  format  ( 

79  FORMAT  tn.liftX) 

30  FORMAT tjl, 7X1 
3*'  FORMAT  (AX.IAI 
3ft  FORMAT  vFA.OfiX  I 
A  1  FORMAT  VAX  *r  A*  1  ) 

A?  FORMA)  I  AX  ,  FA.  2  I 
*J  FORMAT ( xx , FS • 3  I 
\t»  FORMAT  I  |  A  ,  A  X  ) 

DIMENSION  I  T  t  A  I  *  AM ( a  ) ,  0  T  1 5  ) 

DIMENSION  U.  (  3)  »TMU  •  ♦  T A »  2  *  ’TB<2  •  *TCI2>  *TD(2  » *TEU) 

DIMENSION  AX(2l,AY(2),C)t2l,.  2  )  ,LM  1 6  I  ,  X  I  2  )  *  Y  t  2  ) 

DIMl'Nl  li>N  S  I  2  I  ,1  (  2  » 

DIMENSION  At ?O0> »H(200) 

COMMON/ PL Tp/LUDtLL ,NU( 8 ) ,NSI 8) ,SXi2 I ,SY(2 ) *TT (5) »XC»YC*BX ( 200,8  >  »B 
XYt  200  * R I , L  YD  •  AAT  , T G 
COMMON /E GAP/  I  P  *LN,  TOT,  IXT 
DATA  (NS*I»9»9«3»5,7) 

DATA  (AN.2flMS)9TATlON  SEPARATION  IN  N  MI) 

DATA  ( BT»  3  5H  .  D/U  I9SIGNAL  RATIO  IN  DUB  ) 

DATA  ( I Ti 1 H  *  2  A  M  ME  JOHNSON  EXT  3587, 1H  ) 

DATA  I  I  L  =»  1  7HR  I9UN  U  C  J90DE  J1 :  )’ 

DATA  I Tf>  32HD ( 9ES I  RED  DISTANCE  III  •  *9N  MI » 

DATA  t TH*25MA« 9LTI TUDE Tl :  I9FT) 

DATA  (  T A* 1 fcMF ) 9REE  SPACF  1 
DATA  f TB«)ftM< 19UPPER*1 >  5%) 

DATA  (TC-16HU9MI0DLEU)  50%) 

DATA  I TP-16HU 9L0WERI1 I  95%) 

C  - DRAWING  PERIMETER - 

SCXUSXt  1  1-oX  (2  11/10, 

SCY ■ I S Y  t 1  l-SY ( 2 ) ) / 10, 

G 1 1  l-sxn  UI0.3*SCXI 
G t  ?  )  »SX  I  2  )*•  *  1 , 0*SCX  ) 

HI  1 l«SY(l )*(A.0*SCY) 
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H( 2  I »S Y I  2 l-( 1 • 2*SC Y ) 

SHX-IGI 1I-GI2J  >/100. 

SHY* I H  I l)-«<2  I  » / 100 • 

PY* • 3«  SCY 

AX « 1  J*.SXt  2 »-  SAX(2)*SXtll  SAY  ( 1  J  »S  Y  <  2  >  *AY  1 2  » -  H<  1  >  - 1 3  .*SC  Y ) 

LD1-0 

LD2-0 

NX* ( I SX ( 1  )-SX (2  > )/XC) 

NY* ( I SY( 1 )-Sv (2)1 /YC 1  +  1.4 
CALL  CRTPLTIG.H.5.IT.2) 

CALL  CRTPLTIAX.AY.0.1 .14  I 


C  - DRAWING  GRID - 

LX=NX+1 

LY=NY+1 

Y ( 1 J  «S Y 1 1  1  i  Y 1 2  I *SY ( 2  )  S  X ( 1 1 «SX  <  2  » 
DO  20  ! » 1  .NX 
X ( 1  )*X(1)+XC  SX 1 2 )  =  X  1 1  ) 

IF ( X( 1 I.GE.SXIl  ))  GO  TO  33 
CALL  CRTPLTIO.O. 0.0.6) 

CALL  CRTPLT(X.Y.2.0.1 ) 

20  continue 

34  X ( 1  ) *SX( 2 )  $  X ( 2 • *SX ( 1 )  S  YI1)«SYI1> 
Y 1 2 )«Y ( 1 ) 

DO  21  1*1. NY 

I F ( Y ( 1 ) .LE.SYI2  > >  GO  TO  38 
CALL  CRTPLTIO.O, 0,0. 6) 

CALL  CRTPLT IX, Y, 2.0.1) 

Y< 1  )*Y< 1 ) -YC  $ Y I  2 1  * Y< 1  ) 

21  Continue 


c  ,  - labeling  grid - 

39  GY  =  SY I  1 )  t  GX  =  SXi2)-(.95*SCX> 

AS*SY I  2  * 

DO  22  1  =  1. LY 

I F I LYD.GT .0 )  GO  To  16 

KL*GY  $  IFILUD.LT, 01  KL*X ABSF I XL  > 

ENCODEI8.32.AL)  XL 

44  LM I  1  I  =  1  SLM I  2  )  =  1  SLM<3)*0  *LMl4)-0  *LM I  5 > *0  $LMI6)*1 
CALL  CRTPLTIGX.GY.LM.AL.lOl 
GY=GY-YC 

IFIGY.LT. AS>  GY*SYI2) 

22  CON T I NUF 

EX=SX(?)  $  GY=SY(2)-(.2*SCY) 

DO  24  1  =  1. LX 
IFIXC.LT. I.'  GO  TO  25 
I  X=  EX 

IF  I  EX.LT ,0. I  GO  TO  35 
IF  (EX.LT.10.)  GO  TO  26 
IF! EX. GT. 99. I  GO  TO  41 
ENC0DEI8.27.AL )  IX 
GX-EX-I ,075*SCX) 

GO  To  28 


33 

LX=  1  +  1 

S  GO  TO  34 

38 

L  Y=  I 

$  GO  TO  39 

16 

YA  =  GY 

i  IFILUD.LT 

.0) 

YA' 

■ABSFIYA) 

IF  (LYD 

-2)17,18.19 

17 

ENC0DEIB.41.AL )YA  S 

GO 

TO 

44 

18 

ENC0DEI8. 42. ALIYA  S 

GO 

TO 

44 

19 

ENCODE  IB. 43. ALIYA  S 

GO 

TO 

44 

41 

IF  I  EX . 

GT .999 • )  GO  TO  31 

ENCODE  <8,23  *AL  )  IX 
GX-EX-I. 15»SCX) 

GO  TO  28 

35  ENCODFI 8.36.AL >  EX 
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GO  TO  'i 7 

01  c  NCODF  !  R  ,47.  •  AL  i  IX 
0?  GX  = EX- 1 . ?2S*SrX  I 
GO  TO  2  8 

25  ENCODE  (  o  ,20  >Al.l  IX 

gx--f x- < . ir>*scx ) 

GO  TO  20 

?6  ENCODEl8.30.AL) IX 
GX  =  EX 

?S  LM( 1 ) = 1  JEM  (  2  <  =  1  SLM  (31*0  SLMI4)=0  SLM(5)"0  SL.M  (  6  >  *  1 
CALL  CRTPLT1GX.GY.LM.AL. 10) 

EX*EX+XC 

I  F  I  r  X  „  r,  r  .  f,  X  t  1  )  )  r  X  =  S  X  <  1  ! 

24  CONTINUE 

YL=!  0 1  7*  SC v  )  t-S  Y  (  2  ) 

XL*SXI2>-I.C5»SCX) 

LM  (  1  I  ■=  6  SLM  <  2  )  =  1  SL  M  (31*1  JLMl4»=0  SL  M  I  5  )  »0  SLMi6)=2 
CALL  CRTPLTIXL.YL.LM.BT.IO) 

LMil»e*  SLMt  2  >*1  SLM<31»0  SEMI  41*0  SlMl5ta0  $LM<6)=2 
YL«SY(?)-(  .(.n#scv) 

XL  --SX  (  2  U(  3.0#SCX) 

CALL  CRTPLT(XL.YL,LM.AN,10) 

C  - --DRAWING  LEGEND - 

X!  *SXt  2>  +  ( .  4  *  S  C  X  ) 

YL  =  H(  1  l-(  3.40«r.CY  ) 

LM  I  1  )  *  “j  SLM  (  2  )  =>  l  SLM ( 3 ) *0  tLMI4)*0  SLM  (  5 )  «0  SLM(6)b2 
CALL  CRT  PI  T  (  XL*VL»I  M  »  TT  *10) 

Y  L  *  H  ( 1 >- ( 3.°0*srY! 

LM ( 11*4  SLM (21=1  iLM ( 3 1 *0  $LM(4)bO  SLM (  5  )  bO  $LM<6>»2 
CALL  CRTPl.T<X(.  ,Y|  .lm.TE.10I 

XL  =SX I ? > . ( 3.4  «SCX ) 

LM  111  =  1  *lM<2l=i  SL  M  (  3  )  =0  SLM<4)*0  SLM  I  5  )  «0  SLM(6)=2 
call  cr tpl r ( xl . yl ,lm, tg, in) 
x  l  *  s  x  ( ■> )  M  .  4  • '  -  c  x ) 

YL.-HI  1  I  -  (  4.40*00X1 

LM  I  1  I »  4  SLM  l  2  1*1  SLM  (  3  )  *0  S(_M<4)»0  SLM t 5 ) «0  SLMt6)*2 
CALL  CRTPLT1XL.YL.LM.TH.10> 

XL*SX1 ?  U( ?,05»SCX I 

L  v  I  !  )  ~  1  SL.MI2I*1  T  L  M  (  3  I  “  0  SIM(4)=0  $LM(5)«0  $LM(6>=2 
CALI.  CRTOI  T(  XL  »  V|  ,|  m.AAT  ,1  0  I 
Xl«5XI?i  +  (4. SO*  St  X ; 

YL=H! 1 »-( ?,fO*SCY) 

LM(1>*3  T-  L  M  I  ?  >  “  1  SLM  (  3  )  =0  SLM  (  4  )  =0  SLM(5>«0  tLMl6)*l 
CALL  CRTRL.TI  XL  ,YL  .LM.TL  »10> 

XL  =  .SX  1  2  >  +  1  7.70*  SCX  ) 

LMt  1  I  «  1  SLMI2I---1  SLM  (  3  )  =0  SLM!4)=0  $LM(5)=0  $LM(6)»1 
CALL  CRTPL.TIXL  .  YL  ,  LM  ,  IDT  ♦  10  » 

X|  -SX ( 2 ) ♦( R.QO*SCX ) 

1.  M  (  1  1  =  1  St  M  l  2  >  *  l  S  L  M  (  3  )  *  0  SLMt  4  )  *0  SLM<5>bO  SLM16)«1 
CALL  CRTPL T ( XL « YL .LM , I  XT .10  I 
YL-Ht 1  )-( 3.40*SCY , 

X  L  ■=  S  X  (  2  *  +  (  8  •  3  *  SC  X  I 
S < 1  )=SX(?)+(7.3*SCXI 
S<2  )  *  5  X  (  ?  )  +  (  8 . 1  *  SC  X  ) 

T(  1  )=T  (  2  >  =  Yl. 

CALL  L1NF19.S.T  .2.SHX.SMY) 

L  M ( 1  I  b  2  SL  M I  2  )  *  1  SLM ( 3 ) =0  SLM<4)«0  SLMtSl«0  $LM(6)«1 
CALL  CRTPLTIXL.YL.LM.TA. 10) 

Y L. e H (  1  )-(  3. 77*SfY  1 
T  (  1  )  *T  (  2  1  =  YL 

CALL  LlNEtl.S.T.2. SHX . SHY ) 

LM ( 1 ) *2  SLM ( 2  )  *  1  SLM (31*0  SLM  1 4  I  »o  SLM(5)bO  *LM(6)«1 
CALL  CRTPLTIXLtYL.LM.TB.10l 
YL*H(1 )-(4,14*SCY) 
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u  u 


T(n-T(2»rYL 

CALL  LINFI1.S.T.2.SHX.SHYI 

LM{ 1 ) =2  $LM (  2  )  =  1  SLM ( 3 ) =0  *LM<4)'0  $LM(5U0  *LM(6)-1 
CALL  CRTPLT < XL . YL , LM , TC . 1 0 1 
YL=H ( 1 ! - ( 4 • 31 «  SCY I 
Till =T  <  2 ) = YL 

CALL  LINEU*S»T.2*SHA»SHYJ 

LM(  1  /  »2  SLM  (  2  )  *=  1  SLM 1 3  I *0  SLM<4)*0  SLMISUO  SLM<6)-1 
CALL  CRTPLTIXL.YL.LM.TD.IO) 

C  - PLOTTING  GRAPH - 

PO  12  K=1 *LL 

N1=NU(K)  *  LS=NS(K! 

J«0 

DO  1C  T  =  1  *N  1 

M-'OYII  >K).GT.SY(1I. OR. BXU.ICl.LT. 5X(2)J  GO  TO  10 
IFIBYI I,IO.LT.SY<2).OR.BXI I «K ) .GT.SX ( 1 M  GO  TO  10 
J'J  +  1 

IFU.GT.200*  GO  TO  13 
A(J)*BX< T.K*  *  P ( J ) “BY ( I *K ) 

10  CONTINUE 

11  CALL  LlNF(LStA.B*J*SHX.SHY) 

12  continue 
return 

13  PRIfIT  14. LL  *  CALL  PAGfcll)  S  J-200.  *  GO  TO  11 

END 


PLTGRPH 


Subroutine  PLTGRPH  is  used  only  in  the  power  density  program  to 
construct  graphs.  It  is  similar  to  PLTDU. 


SUBROUT  INF  PLTGRPH 

PLOT  SUBROUTINE  FOR  POWAV 
ROUT  INF  FnR  MODEL  AUG  73 

14  FORMAT!*  CAPACITY  OF  LINE*. 12.*  IS  OVER  100  POINTS*! 

23  rORMAT ( I  3  » SX  ) 

2  7  FORMAT  (  12  *6X  I 
2<J  FORMAT  (  F  3  «  1  *  S  X  ) 

•>0  FORMAT  (11*7X1 
3 2  FORMAT (4X  ,  14  ) 

36  FORMAT (F4.0*4X  I 
4  1  FORMAT ( 4X.  F4. 1  1 

42  FORMAT  I 4X  ,F4 .2 > 

43  FORMAT (3X.F5. 3 » 

46  FORMAT  I  14  *4X  I 

DIMFNSION  TL  <  3> .THI4  J .TA<2 ! *TS( 2  I >TC(2  >  *TD<2»  tTEI3> 

DIMFNSION  AX  I  2  *  *AYf  2  *  *G<  2  *  *H(2  >  .LMI6 ) »X( 2  I  *Y( 2  I 
P  I  MFflS  i  on  S I  2  )  *  T  (  2  ! 

PIMFNSIOM  A! 200  )  *R( 200  ) 

PlMFMSION  IT ( 6  I  * AN ( 3  I  *  PT l 5  > 

COMMON /PL TD/ LUO.  Ll . NU <  8  I » NS  I  8 ) . SX ( 2  I . S Y I  2 ) . TT  < 6 ) . XC * YC * BX < 200  * 8  )  * 0 
XY ( 200  *B  * .LYD.AAT.TG 

COMMON/EG  .P/  IP  .LN. ioi.ixt 

data  UTalH  » 24H  M  F.  JOHNSON  EXT  3587*1H  ! 


DATA  ( AN  =  24H  D49ISTANCE  IN  N  MI  ) 

DATA  I 8T=40H  P490WER  DENSITY  IN  D41B-W/49SQ  M  > 

DATA  (NS«1,9.9.3.5.7> 

DATA  <TL=17HR49UN  4  1C  490DE  4 1  :■ ) 

DATA! TE=24H 49WI TH  DjlBW  EIRP  > 

DATA  (  THn  75HA  J  91.  T  i  TuDE  4 1  :  49FT> 

DATA  ( TA-16HF49REE  SPACE  ) 

DATA  (  TB=16Hi  4-7UPPER41  )  5%) 

DATA  ( TC=1 AHI 49MIDDLE 41 )  50%) 

DATA  (TD»16H< 49LOWER 41 )  95%) 

- DRAWING  PERIMETER - 

SCX=(SX(1  )  -SX (211/10. 

SCY  =  (SY(1  I  -SY ( 2 ) ) / 1 0  » 

G(  1  )  =SX( 1  )  +  ( 0.3*SCX ) 

G(  2  )  =SX (7 )-( 1 .0»SCX ) 

HI  1  )=SY< 1  )  + 1  4 . 8*SC Y I 
H C 2  » =  SY  ( 2  )-( 1 ,2*SCY ) 

SHXMGIl  J-G<2>  1/100. 

SHY»(Htl)-H<2* ) / 100 . 

PY= . 3»  SCY 

AX ( 1  )  =SX ( 2  I  SAX  1 2 ) “SX 1 1 )  $AY<1»«$Y(2)  SaYI2»«  HI  1 >- 1 3  »*SCY ) 

LD 1  =0 

LD2*0 

NX  = ( ( SX (  1  I-SXI2  t I /XC I 
NY - (  I  SY ( 1  I-SYI2  I  I /YC  1  +  1 .4 
CALL  CRTPLT(G.H.S.TT.p) 

CALL  CRTPLTIAX, AY, 0,1.14) 


C 


- DRAWING  GRID - 

lx=nx+i 

LY=NY+1 

Y < 1 »  =S Y( 1  I  *  Y ( 2 ) =SY I  2 )  S  XI  l ) -SX I  2 • 
DO  20  1  =  1, NX 
X  I  1  I  =X  (  1  I  +XC.  S X  (  2  )  0  X  (  1  ) 

I F I  X  I  1  )  .GF.SXI  1 )  I  GO  TO  33 
CALL  CRTPLTIO.0, 0.0,8> 

CALL  CRTPLTIX,Y,2.0,1  I 
20  CONTINHF 

34  X ( 1  )  =SX ( 2  )  S  X  I  2 ) =Sx ( 1 )  S  Y ( 1 ) «SY ( 1 ) 
YC  2 ) =Y  1 1  ) 

DO  21  1  =  1  ,NY 


IF! Y< ]  •  .LF.SY (2  I  )  GO  TO  38 
CALL  CRTPLT (0,0. 0.0, 0  I 
CALL  CRTPLTCX.Y, 2»b,l  ) 

Y  (  1  ) «Y ( 1 ) - YC  5Y I  2 ) = Y (  1  I 
21  CONTINUE 


- LABELING  GRID - 

39  GY  =  S  V  (  1  )  %  GX  =  SX<2>-(.9«S«SrX) 

AS  =  SY ( 2  ) 

DO  22  1-1  ,LY 

IFILYD.GT.O1  GO  TO  16 

KL=GY  S  IFILUD.LT.O)  KL“XABSF (XL  I 

ENCODE ( 8 . 32  * AL )  XL 

44  LMl 1 4  «1  JLM( 2  » “1  SLM(3)«0  JLM(4)»0  SLM<5>*0  SLMI6I-1 
CALL  CRTPLT(GX.GY,LM.A1.10» 

GY«GY*VC 

IF IGY.LT.AS)  GY-SYI2) 

22  CONTINUF 

E  X  =  S  X  I  2  *  S  GY-SY(2)-(.2*SCY* 

DO  24  1  =  1  ,LX 


IFIXC.LT. 1.1 
IX. EX 

GO 

TO 

25 

IFIFX.LT.O. ) 

GO 

TO 

35 

* 
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IF  (EX.LT.lO,)  GO  TO  26 
IF ( EX.GT .99. )  60  TO  41 
ENCODE (8*27 »AL  >  IX 
GX=EX-< ,075*SCX) 

GO  TO  28 

33  LX-I+1  S  GO  TO  34 

38  L Y=  I  $  GO  TO  39 

16  YA=GY  S  I F ( LUD.LT .0 )  YA=ABSF ( YAl 

IF(LYD-2) 17*18.19 

•17  ENCODE (8*41«AL)YA  S  GO  TO  44 

18  ENC0DE(8.42*AL)YA  S  GO  TO  44 

19  ENC0DEI8. 43. ALIYA  $  GO  TO  44 

41  IF ( EX.GT .999. )  GO  TO  31 

ENCODE  <  fi » 23 • AL )  IX 
GX=FX-( .15* SCX I 
GO  TO  28 

35  ENC0DEI8.36.AL)  EX 
GO  TO  37 

31  ENC0DFI8.46.AL)  IX 
37  GX=EX-< ,225*SCX) 

GO  TO  28 

25  ENC0DEI8.29.AL)  EX 
GX*EX- ( . 18*SCX ) 

GO  TO  28 

26  ENCODE(B.30.AL> IX 
CXrCX 

28  LM ( 1 • = 1  SLM(2»=1  SLM<3>«0  SLM(4>»0  $LH(5)«0  SLMI6I-1 
CALL  CRTPLTIGX.GY.LM.AL.10) 

EX*FX+XC 

IFIEX.GT.SXI 1 ) )  EX=SX ( 1 ) 

24  CONTINUE 

YL * (  0 • 7*SC Y ) +SY ( 2  ) 

XL  =  SX ( 2 )  —  1 .H5*SCX) 

LM<1>=6  SLM  (  2  1  =  1  SLM  <  3 )  - 1  $LM<4)=0  SLM(5)«0  $LM(6)»-2 
CALL  CRTPLT(XL.YL.LM.BT.IO) 

LM ( 1 )  =  3  SLM ( 2  )  =  1  SLM ( 3  I «0  $LM<4)*0  SLM(5)*0  SLM(6)-2 
YL  =  SY ( 2  *  - ( . 60*  SCY ) 

XL=SX(2»+<  3.0*SCX) 

CALL  CRTPLT (XL.YL.LM.AN.10) 

- DRAWING  LEGEND - 

XL  *SX ( 2  * .  < .4*SCX> 

YL*H( 1 )-( 3.40*SCY) 

LM ( 1 ) =6  SLM l 2  •  ’ l  *LM(3l»0  SLM<4)«0  SLMI5I-0  SLMI6I-2 
CALL  CRTPLT(XL.YL.LM.TT.IO) 

YLaH( 1 )-( 3.90*SCYi 

LM ( 1 1  a 3  SLM ( 2  )  =  1  SLM ( 3 ) =0  SLM(4)«0  SLMI5I-0  SLMI6)=2 
CALL  CRTPLT (XL.YL.LM.TF.10) 

XL=SX<2)+(0.8*SCXI 

LM ( 1 ) *  1  SLM ( 2 ) *  1  SLM ( 3 ) =0  *LM<4)«0  SLM(5)-0  SLM16I-2 
CALL  CSTPLTlXL.YL.LM.TG. 10) 

XL=SX ( 2>+ ( .4*SCX) 

YL=M( 1 l~( 4.40*SCY I 

L  M  (  1 )  =  4  SLM <21  =  1  SLM ( 3 ) r0  SLMI4I-0  SLM(5)»0  SLMI6I-2 
CALL  CRTPLT ( XL.YL.LM.TH, 10) 

X L  =  S X  I  2  U I 2.05*SCX  ) 

L  M ( 1  I  a  1  SLM ( 2 ) e 1  SLM ( 3 ) a0  SLM(4)»0  SLM(5)»0  SLMI6I-2 
CALL  CRTPLTtXl .YL.LM.AAT.10) 

XL  '5X (2 -  +  (6.5n*SCX  I 
YL*H( 1 )-( 2.60«SCY1 

LM(ll=3  SI  M  (  2  I  =  1  SLM  (  3  )  -0  SLMUI-O  SLM(5)aO  SLMI6)«1 
CALL  CRTPLTIXL.YL.LM.TL  .10) 

X L * S X  I  2 • P • 7.70*SCX  I 

L  M  (  1  I  a  i  St  Ml  2  >  =  1  SLM  (  3  1  “0  SLM(4!-0  Sl.M<5>-0  SLM  161*1 
CALL  CRTPLT I  XL .YL .LM. IDT  .101 
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XL"SX(?>+(fl.90*SCX) 

LMflUl  $LM(  2  )  *1  SLM  ( 3  )  *0  SLMt-4>«0  SLM(5)»0  SLM(6I«1 
CALL  CRTPLTIXL.YL.LM.IXT.IO* 

YL=H( 1 )-( 3.A0*SCY) 

XL  =  SX(?U(  B  •  3*. SCX  ) 

Sll  )  =SX ( 2  U'(7.3*SCX) 

S(2)*SX(2)+(8.1*SCX) 

T  •  1 ) =T ( 2 • * YL 

CALL  LINFI9.S.T.2.SHX.SHY1 

LM(  1  )  »2  $LH  (  2  )  =  1  SLM  (  3  )  =0  SLMI41-0  SLH(5)-0  SLM<6>=*1 
CALL  CRTPL  T (XL.YL.LMtTA.10) 

YLaH ( 1 )-< 3.77*SCY) 

T ( 1 )*T(?)=YL 

CALL  LINFI1.S.T.2.SHX.SHY) 

LM( 1  *  =2  SLM (21=1  SLM ( 3  )  =0  SLM(4)=0  SLM(5>*0  SLM(6)*1 
CALL  CRTPLT<XL.YL.LM.TB«10> 

YL*H(  1  >-U.lA*SCYI 
T  (  1  )  *T  (  2  I  r  YL 

CALL  LINF( 1 .S.T.2.SHX.SHY) 

LM  (  1  I  =  2  SLM (2**1  SLM  (  3  )  =0  Sl.M<4>*0  SLM(5>=0  $LM(6)=1 
CALL  CRTPLTIXL.YL.LM.TC.10l 
YL=H(1 )-<4.51*SCY) 

TU)»T(2)=YL 

CALL  I.  INf(  1  *S.  T  ,2,SHX.SHY  ) 

LM( 1 ) =2  SLM (21*1  SLM ( 3 ) =0  $LM(4)=0  $LM(5)*0  $LM(6)»1 
CALL  CRTPLTI XL » YL .LM . TD» 1 0 > 

C  - PLOTTING  GRAPH - 

DO  12  K " 1  »  L  L 

N1*NUIK>  S  LS=NS(K> 

J=0 

DO  10  I*l.Nl  ,  „  , 

IFIBYI I.K*.GT.SY<1).0R.BX( I ttO  .LT.SXI  2 M  GO  TO  10 
IF(BYU»K».LT.SYI2).0R.BX(  I.K>.GT,SX(1»»  GO  TO  10 
J*  J+l 

IFU.GT.200*  GO  TO  13 
A ( J ) »BX ( I »K  *  S  B 1 J  * "BY (  I  *K  • 

10  CONTINUE 

11  CALL  LINF(LS.A.B.J.SHX.SHY) 

12  CONTI NUF 

return 

13  PRINT  14. LL  %  CALL  PAGE! 1 1  S  J-200.  S  GO  TO  11 

END 


PLTVOL 


Subroutine  PLTVOL  is  used  only  in  the  service  volume  program  to 
set  up  graphs.  It  does  not  draw  the  contour  lines. 


SUBROUTINE  PLTVOL 

C  PLOT  SUBROUTINE  FOR  SRVVOLM 
C  ROUT  INF  FOP  MODEL  AUG  73 

14  FORMAT ( *  CAPACITY  OF  LINE».12**  IS  OVER  100  POINTS*) 
23  FORMAT  I  Il.'lX  I 
?7  FORMAT  (  |  7  *(iX  I 


165 


?9  FORMAT f F3. 1 .5X ) 

30  FORMAT (  11*7X1 
32  FORMAT I 4X . I  4 ) 

36  FORMAT I F4 .0  »  AX  I 

41  FORflAT  (4X.F4.1  ( 

42  FORMAT I  4X  »  F4 • 2 • 

43  FORMAT ( 3X »F5. 3  ) 

46  FORMAT ( I4.4X) 

DIMENSION  IT<5>  .AN<4>»BT(5» 

DIMENSION  TL<3> .ThI4»»TAI2) • TB ( 2  > *TC  C 2  »  *T0<  2 » .TE(5> 
DIMENSION  AX(2) .AY(2*»G(2  >.H<2) .LM<6» .X(2).Y(2> 

DIMENSION  S<2>»T<2> 

COMMON/PLVD/LUn.LYD.SHX,SHY*TG.SX(2) »SY(2) *TT(6) *XC»YC»AAT 
COMMON /F GAP/ I P  »LN • inT  » I  XT 

DATA  (IT=1H  .24H  M  E  JOHNSON  EXT  3587.1H  I 
DATA  ( AN  =  31MD  I9ESIRED  PATH  DISTANCE  IN  N  Ml> 

DATA  <BT  =  39H  A I9IRCRAF  T  ALTITUDE  IN  THOUSANDS  OF  F'<  > 

DATA  (TL=17HR|9UN  41C190DEJ1.1 

DATA  (TE  =  34HSI9TATION  SEPAR AT  I  ON < 1:  I 9N  M I » 

DATA  (TH=25HD/U  I9RATI0U:  19DJ1B» 

DATA  (TA=16HFI9REE  SPACE  ) 

DATA  I  TR  =  16FI 1 1  90UT  TFR  II  I  5%) 

DATA  (  TC  =  1  =iH(  I  9MIDDLE  1 1  •  50%) 

DATA  (  TD=  16HU  9  INNER  )1  I  95%) 

TS=.nni 

C  - DRAWING  PERIMETER - 

SCX  =  ( SX ( 1  )-SX<  2 > 1/10- 
SCY - ( S Y  <  1  ) -SY ( 2 ) ) / 10. 

(ill)  =SX  (  1  )  +(  0. 3*SCX  ) 

G ( 2 ) =SX (2  1-1 1 .0»SCX  ) 

H ( 1 ) =5 Y ( 1  )  + 1  4  • 0*SC Y ) 

H ( 2  I *SY ( 2 ) -  * 1.2»SCY) 

SHX* ( G ( I ) - G I  2 • )/100. 

SHY*I HI  1 ) -HI  2 • ) /100. 

PY*  .3*SCY 

A  X ( 1 ) - SX I  2  *  S AX  I  2 ) -SX (  1  »  SAY(1)*SY<2)  »AY(2>»  HI  1 •- I 3.»SCY  ) 

LOl'O 

LD2*0 

NX-I I SX I  1  I-SXI2  )  l/XC) 

NY=( (SYI 1  )  —  S  Y  1 2  I  ) / YC ) ♦  1  •  4 
CALL  CRTPLT I G . H . 5  » I T .?  ) 

CALL  CRTPLT I  AX  iAY.O  ,  1 .  14 f 

C  - DRAWING  GRID - 

I .  X  =  NX  +  1 

ly=ny+i 

Y 1 1  )  »S Y I  1  )  *  Y I ? )  =  S Y I  2  I  *  X  I  1 ) »  SX  C  r  > 

DO  20  I»1»NX 
X  I  1  l  =  X  I  1  )  +XC  tX  I  2  )  «=X  I  1  ) 

I F  I  X  I  1  l.GF.SXU  I  )  GO  TO  33 
CALL  CHTPLTIO.0.0,0.8) 

CALL  CRTPLT (X  .Y, 2.0,1 ) 

20  continue 

34  XllUSXI?)  t  X  1  2  I  =  SX  I  1  I  S  Y  < 1 ) -SY  < 1 » 

Y  I  2  )  *  Y  I  I  ) 

DO  21  1*1  .NY 

I F I Y I  1  ) . LF. SY 1 2  I  )  GO  TO  38 
CALL  CRTPI TIO.O.O.O.Q) 

CALL  CRTPLTIX.Y.2.0.11 

Y  I  1  )  =  Y I  1 • - YC  JY I  2 ) * Y( 1 ) 

2 1  CONTINUE 

C  - LABELING  GRID - 

39  GY  =  SY  (  1 )  S  GX*SX(2I-(.95»S,CX> 
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AS*SY<21 

00  22  I=1*LY 

IF (LYD.GT *0  >  GO  TO  16 

KL=GY#TS  $  IF(LUO.LT.O)  KL=XABSF(KL> 

FNCODF ( 8  *  32  * AL  )  XL 

4<*  LM(1>=1  $LM'!  2  )  =  1  t LM ( 3  )  “0  JLMUI-0  *LM!5)»0  SLM!6)«1 
CALL  CRTPLT(GX.GY.LM.AL.IO) 

C,Y  =  GY-YC 

IF(GY.LT.AS>  G Y=SY( 2 • 

22  CONTINUE 

EX  =  SX ( 2  )  $  GY-SYI2 )-( .2*SCY) 

DO  24  1=1 *LX 
IFIXC.LT. 1. )  GO  TO  25 
IX=  EX 

IFIEX.LT. 0.)  GO  TO  35 
IF  (EX.LT.10.)  GO  TO  26 
IF ( EX.GT .99. )  GO  TO  41 
FNCODE ! 8  *  27  *  AL  •  IX 
GX=EX-< ,075*SCX| 

GO  TO  28 

33  L X  = 1  +  1  *  GO  TO  34 

38  L Y= I  *  GO  TO  39 

16  YA=GY  S  IFILUO.LT. 0)  YA»ABSF(YA) 

I F ( L  YD-2 I  17*18.19 

17  ENCODE (fl«41*AL)YA  S  GO  TO  44 

18  ENCODE! 8. «2»AL >YA  $  GO  TO  44 

19  ENCODE ( 8  *43  * AL  )  YA  S  GO  TO  44 

41  1FIEX.GT. 999 . )  GO  TO  31 

ENCODF ( 8 . 23  * AL  •  IX 
GX=EX-( . 15#SCX ) 

GO  TO  28 

35  ENCODE! 8. 36*AL »  EX 
GO  TO  37 

31  FNCODE ( 8*46  *AL  )  IX 
37  GX=EX-( »225*SCX) 

GO  TO  28 

25  ENCODE! 8, 29.AL )  EX 
GX«  EX- ( .1 5*SCX  I 

GO  TO  28 

26  ENCODEI8.30.AL  I  IX 
GX  =  EX 

28  LM ( 1 ) = 1  ILM<21=1  $LM(3)«0  *LM(4)»0  *LM(5»-0  ILM<6)-1 
CALL  CRTPLT(GX.GY.LM.AL.IO) 

EX»EX*XC 

IF(EX.GT.SX« 1 ) )  E  X  =  S  X ( 1  I 
24  CON  T I NUF 


c  - drawing  legend - 

Y(_*  <  0. 7*SC  Y  I +SY  (  2  I 

XL*SX!2>-!.85»SCX) 

LM! 1 • =5  tLM ( 2 ) *  1  tLM!3)«l  *LM(4)-0  tLM<5>«0  *LM(6)«2 
CALL  CRTFLT(XL.YL.LM.HT.iO) 

LM!  1  I  ®4  tLM !  2  )  *  1  $LM(3)-0  SLMI4J-0  JLMI5I-0  $LM<6>**2 
YL«SV(2)-(.60«SCY) 

XL»SX!2»  +  <  2 . 5*  SCX ) 

CALL  CRTPLT!XL.YL.LM.AN*10) 

XL-SX(2)+(.4«SCXI 
YL«H< 1 )-( 3.40#SCY) 

LM ( 1 )  «6  »LM(2)«l  tLM (31=0  *LM(4(»0  $LM(5)-0  rLM(6l»2 
CALL  CRTPLTIXL.YL.LM.TT.IO) 

YL*H( 1 ) - ( 3*90#  SC Y ) 

LM!  1  )  *5  tLM!  2  )  *  1  tLM(3)«0  $LM<4)»0  tLM(5l«0  $LM(6>»2 
CALL  CRTPLT(XL.YL.LM.Tf.IO) 

XL*SX(2)+(3.8»SCX) 

LM< 1 • *  1  tLM I  2  )  =  1  tLM ( 3 • “0  $LM(4I»0  $LMI5)»0  *LM(6I»2 
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CAUL  CRTPLTIXL.YL.LM.TG.10) 

XL«SX( 2*  +  <  .4*SCX) 

YL«H(1 )-<4i40*$CY) 

LH ( 11*4  JLM<2>al  $LM(3)=0  $LM<4)»0  SLM<5>a0  SLM<6>“2 
CALL  CRTPLT(XL.YL.LM.TH.10> 

XL=SX(2»+(2.25*5CXI 

LM(lt*l  $LM (  2  )  a  1  *LM(3)=0  SLM<4)*0  SLM<5)“0  $LM(6)"2 
CALL  CRTPLTIXL.YL.LM.AAT  .10) 

XL*SX(2)+!6.50*SCX> 

Yl=H( 1 )-( 2.60*SCY ) 

LM ( 1 1  *  3  $LM • 2 )  =  1  SLM ( 3 ) r0  $LM(4)«0  SLMt5>“0  $LM<6)*1 
CALL  CRTPLTIXL.YL.LM.TL  .10) 

XL«=SX(2)  +  (7.70*SCXI 

LM (  11  =  1  $LM ( 2  )  =  1  5LM(3)=0  SLM(4)a0  SLM«5)»0  JLMt6)»l 
CALL  CRTPLTIXL.YL.LM.inT. 10) 

XL=SX<2!+(8.90*SCX) 

LM (  1  )  ■  1  $LM ( 2 ) 3 1  $LM ( 3  )  “0  SLM<4)*0  SLM‘5>»0  SLM<6)*1 
CALL  CRTPLT(XL.YL.LM.IXT.IO) 

YL*H( 1  >. <3.40*SCY» 

XL  =  SX  <  2  > ♦ f  8 • 3*SCX ) 

S(1  )=SX(?l  +  t7.3*SCX) 

S(2)=SX(2)+(8.1*SCX) 

T  (  1  )  =»T  (  2  )  -  YL 

CALL  LINr(9.S.T.?.SHX.SHYl 

LM ( 1 ) • 2  $LM I  2  I “ 1  *LM(3)”0  *LM(4)*0  *LM(5)»0  $LM(6)»1 
CALL  CRTPLT(XL.YL.LM.TA.IO) 

YL*H(1 ) - ( 3 • 77*SC Y | 

T(1)«T(?)"YL 

CALL  LINPI2.S.T.2.SHX.SHY)  , 

LM<1)«=2  $LM  (  2  )  ”  1  $LM(3I»0  SLM(4la0  *LM(5)»0  *LMt6)*l 
CALL  CRTPLTIXL.YL.LM.TB.IO) 

YL-HI 1 )_<4. 14*SCY) 

T  (  1  ) *T  <  ? I  * YL 

CALL  L  INF( 1.S.T.2.SHX.SHY) 

LM(1)«2  $L  M ( 2  )  *  1  SLM ( 3 ) «0  $LM(4)*0  *LM(5>-0  SLM(6>«1 
CALL  CRTPLTIXL.YL.LM.TC. 10) 

YL-HU  l-(4.51*SCY» 

T(  i  ) -T  (  2  >  «  "L 

CALL  LlNE(3.S.T.2.SHX.SHY) 

LM ( 1 1 *2  SLM I  2  >  *  1  SLM ( 3  I «0  SLMI4I-0  SLMI5>-0  *LM(6»-1 
CALL  CRTPLT(XL.YL.LM.TO.IO) 

RETURN 

END 


POWSUB 

Subrou  3  POWSUB  is  used  only  in  the  station  separation  program. 
It  performs  parameter  conversions,  prints  parameter  sheet(s),  and 
obtains  an  array  of  sotropic  power  values  versus  distance  for  both 
desired  and  undesired  facilities. 
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subroutine  powsub 


C  POUTINE  FOR  MODEL  AUG  73 

A  FORMAT! ] HI  I 

5  FORMAT ( 1H  ) 

6  FORMAT(20X, ’INPUT*, 21X, ’WORKING  VALUED  I 

106  FORMAT (  SX  **  DML  Is  LESS  THAN  ZERO.  ABORTING  RUN  *) 

c  format  statements  for  parameter  sheet  and  work  sheet 


700  FORMAT! 18X»*PARAMFTFRS  FOR  ITS  PROPAGATION  MODEL  * ♦ A8 , /24X , A8 * 2X , A 
X8  »  *  RUN*  v // ) 

70 1  FORMAT  (  32X.*RE0UIRED  OR  FIXED*  * /32X  ,* - «»/15X«*AIR 

lCRAFT  ALTITUDE: »*F8.0*»  FT  ABOVE  MSL*> 

702  FORMAT! 1 5 X .*FAC I L I T Y  ANTENNA  HE  I GHT .  * . F7. 1 ,»  FT  ABOVE  SITE  SURFACE 
X*  ) 

703  FORMAT ( 15X.*FREQUFNCY  :* .F6.0 .*  MhZ*> 

704  FORMAT  !  29X,*SPEC  IFICAT  ION  OPT  I  ONAL*  , /2  9X  ,  * - ** 

4/15X. *ABSORPT ION :  OXYGEN* »F9. 5 . *  DB/KM* , A2 * /2 7X » *WAT£R  VAPOR*, F9. 5 
4,*DB/KM*,A2) 

705  FORMAT! 1  5X » »EFFEC T I V£  ALTITUDE  CORRECTION  FACTOR:  «,F6,0*»  FT*, A 2 
5i/15X»*EFFECT  IVE  REFLECTION  SURFACE  ELEVATION  ABOVE  MSl:«*f7.0»*  F 
5T*»/15X»  »EQU I VAL  FN  T  ISOTROPICALLY  RADIATED  POWFR:  »,F6,1,*  DBW**/1 
55X , *  FAC  I L I T  Y  ANTENNA  TYPE:  »,5A8) 

706  FORMAT  (20X,*COUNTERPOISE  D I AME  TER :  *  >F5  .0  *  *  FT*  ,  /  25  X  ,  *HE  I  GHT  :  *  ,  F5 .0 
6 , *  FT  ABO VF  SITE  SURFACE  *»/25X»* SURFACE : * , 2 AS  ) 

70  7  FORMAT ( 20 X , »POL AR I Z A T ! ON  :« ,?A8l 

708  FORMAT ( 15X, ’HORIZON  OBSTACLE  D I S T AMCC : * , F 7 . 2  *  *  N  MI  FROM  FACILITY* 
0.A2./2OX, ‘ELEVATION  ANGLE.  * , I  3 , * / *  ,  I  2  .  * / * , I  2  * *  DEG/MIN/SfC  ABOVE 
8  HOR IZ0NTAL*,A2«/20X,* HEIGHT  *,F6,0»*  FT  ABOVE  MSL*,A2) 

709  FORMAT ( 1 5 X , *M I N I MUM  MONTHLY  MFAN  SURFACE  REFR ACT  I V  I T Y : * » /20X ,F 3 . 0  * 

9*  N-UNITS  AT  SEA  LEVEL:  *.F3.0,«  N-UNITS*) 

710  FORMAT ( ]SX, ‘TERRAIN  ELEVATION  AT  S I TE : *  .  F6 . 0 , *  FT  ABOVE  M5L*,/20X, 

A»PARAMFTER:  *.FS.O,*  FT*,/20X,«  TYPE  •'  *»?A8) 

712  FORMAT ( 20X*ANTENNA  HEIGHT  TOO  HIGH,  IONOSPHERIC  EFFECTS* »/25x»*MAY 
2  BE  IMPORTANT*) 

713  FORMAT (20X. ‘AIRCRAFT  TOO  LOW*  TERRAIN  BEYOND  FACILITY  *./25X,*HORI 
3Z0N  MAY  BF  IMPORTANT*) 

714  F0RMAT(20X,*IN  ADDITION,  SURFACF  WAVE  CONTRIBUTIONS  SHOULD* ./ 1 5X  . * 
ABE  CONSIDERED*! 

715  FORMAT (20X.*ANTENNA  TOO  HIGH*  RAY  BENDING  OVERESTIMATED*,/) 

716  FORMAT ( 20X • ’ANTENNN A  TOO  LOW.  SURFACE  WAVE  SHOULD  BF*  »/25X,*C0NS ID 
6ERED* 1 

717  FORMAT ( ?0X. ‘FREQUENCY  TOO  LOW,  IONOSPHERIC  EFFECTS  MAY  BE*,/?5X»*I 
7MPOR IANT*,//) 

718  FORMAT <20X, ’ATTENUATION  AND/OR  SCATTERING  FROM  H YD ROME T FORS*,/25X, 
8* ( RA IN  ,  ETC)  MAY  BE  IMPORTANT*) 

719  FORMAT  <20X«*AFMOSPHCRJC  ABSORPTION  ESTIMATES  MAY  BE* * /25X * »UNREL I A 


9RI F* I 

7?4  FORMAT ( / J  4 X , A 2  ,*COMPUTFD  VALUE*  I 

725  FORMAT ( 20X ,*TYPE  »,2Afl,Al! 

726  FORMAT (  12X ,*FARTH» ,F9.0  *»  N  MI 

728  FORMA  ! 12X,*HRE=  * , F8 . 4 , »- » , F0 . 4 , »-* , F8 . 4 ,« 

729  FORMA .  (  >  *  *  T  I  Mf  AVAILABILITY-'  *.4A8»Alt// 

731  FORMAT  !  1?X,»  H  (  A  )  *,FB.O,»  FT  MSL 

732  FORMA1 ( 12X,«  H ( F )  ».F8.]«*  FT  TO  SURFACE 

733  FORMAT ( I2X,*FREQUFNrY*,  F5,0,»  MHZ 
7*4  FORMAT (  1 2X  * •  A(0)»,  F9,S.»  DB/KM 

735  FORMAT (  1 ?X  ,  *  A(W)*,F9.5  .*  DB/KM 

736  FORMAT! 1?X.»D<HF>  *,F8.U,» 

717  FORMAT ( 1?X,*EIRP  ».F9.l  ,*  DBW 
738  FORMAT ( 1 2X , *F  ANT  *,6X.J?»  ZX.SAR) 

7  39  FORMAT  I  1?X.*  DID  *  ,  F  8 . 0  ,  *  FT 


».re.o. » 

* , F0 .4  ,  * 

*  >  F  8 . 4  .  » 
*»F8.4»* 

*  ,  F  8 . 0  ♦  « 

*  »  F8  •  5  »  * 

*  »  F8 • 5 , • 

*  » F8  *4  »  * 
• »  F8  •  1  >* 

• ,FB,4  ,  * 


KM*  ) 

KM*  ) 

KM  MSL*  ) 

KM  *  ) 

MHZ  *) 
DB/KM*  ,A2  ! 
DB/KM*, A2 ) 
KH*,A2) 

DBW  «  ) 

KM*  ) 
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7*0  FORMAT ( 1 2X » *  H 1C)  * .F8.0. *  FT  ABOVE  SURFACE  *.F8.4.»  KM* ) 

7 A 1  FORMAT! 12X.*C0UNTeRP0ISE*» I2.10X.2A8  > 

742  FORMAT! 12X.*H(FR)  #,F8.0.»  FT  ABOVE  REFLECTION* .FB.4 ♦ *  KM*) 

743  FORMAT! 1 2X »«POLAR IZ AT  ION* *  1 2 . 10X .2 A8 > 

745  FORMAT! 10X»A2.*ll<H0)  *.F 8.2,*  N  MI  FROM  HORIZON  «»F8.2»*  KM*) 

746  FORMAT! 10X.A2  .*E!HOI  * , 1 2 .*/« . 1 2 . */* , 12 .*  DEG/M  IN/SEC* . 7X » F8. 5 ,*  R 
6A0IANS* ) 

747  FORMAT ( 10X»A2«*HlHO)  *»F8.0t*  FT  MSL  *«F8.4»*  KM* > 

748  FORMAT i 12X  **  N(0)*,F9.0  **  N-UNITS  N(S)  *.F8.0.*  N-UNITS*) 

7*9  FORMAT! 1 2X .*H < SUR ) * . F8 .0  .*  FT  MSL  *.F8.4.*  KM*) 

750  FORMAT! 12X»*DH(SUR)*,F7.0i*  FT  *.F8.4.»  KM*) 

751  FORMAT! I2X**TfRRAIN*.r7, T2,10X.2A8l 

756  FORMAT  (28X*2A8) 

757  FORMAT ! 12X*INPUT  PARAMETERS  FOR  *,A8.2X.A8.*  RUN*  »/ 12X*OF  *,A8»*  A 
11R/GROUNO  MODEL*.// ) 

778  FORMAT  !  15X. 'SURFACE  REFLECTION  LOBING  '•  CONTRIBUTES  TO  VARIABILITY 


X*  ) 

779  FORMAT ( 15X. 'SURFACE  REFLECTION  LOBING:  DETERMINES  MEDIAN*) 

785  FORMAT ( 12X. 'SURFACE  REFLECTION  LOBING:  CONTRIBUTES  TO  VARIABILITY 
X*» 

786  FORMAT! 12X. 'SURFACE  REFLECTION  LOBING:  DETERMINES  MEDIAN*) 

800  FORMAT i//10X. 'SOME  PARAMETERS  ARE  OUT  OF  RANGE*) 

809  FORMAT <20X.*DLT  IS  LESS  THAN  .1XDLST  OR  GREATER  THAN  3XDLST*  > 

810  FORMAT (?ov. 'INITIAL  TAKE-OFF  ANGLE  GREATER  THAN  12  DEG.*) 

840  FORM  l .  ,  ;;  PROGRAM  IS  BEING  ABORTED  FOR  WRONG  PARAMETERS*) 


DIMENSION  CFK!  31  .CMXO  )  .  CFM I  3  )  .CKM  i  3  )  »CKN  (  3 » 

DIMENSION  ACD I  101) .AND! 101 ) *SCT( 101 ) « AAD! 101 ) tRW! 101 ) 

DIMENSION  PAS ( 2 ) 

DIMENSION  FATI5.8).CCI (2.7) .POL  1 2 .3 > *TSCt 2 .7 > 

DIMENSION  MTM! 5 ) .YCONI 5 ) 

DIMENSION  YV(IO).SVIIO) 

DIMENSION  PI  35) .QC<  50) ,QAI 50 ) .PQA ( 5Q » .PQK I  50 »  »QK I  50 ) .POC 1 50 » 
DIMENSION  TYD! 3.2) .VYOI5.2  • 

DIMENSION  RE (2) .AO! 35) .80(351 .ALM!12) 

COMMON/f GAP/ IP.LN.IDf .  IX T 

common/rytc/uns.ohc.uha.uhs.ooo 

COMMON/PA INP/NK .HF I *NPL  « SUR .HPF I . DMS I .NSC .DC  I *HCI .NCC.DHOI ,HHOI . ID 
XG. IMN » I  SEC*  KE .MK.MD.E IRP.NLB.HAJ , DHEI .ENO.AOI .AW  I .F. IA. ADENT ( 2 ) .A 
XDN  T ( 3 • • VARFOR ( 6 ) .CMAX 

COMMON/PARAM/HTE.HRE.D.DLT .DLR.ENS.EFRTH.FREK.ALAM.TET .ter.kd.gao, 
XGAW 

COMMON, -PAOUT/NCT.PFY(200. 6  > 

COMMON/ S I  OH T/ DC W. HCW. DM1 X .DML . DZR . IK .£AC »H2 . I CC . MFC .PRH .DSL  1 »P I RP » 
XOGt .0G9.KK.ZH.RPHK. ILR 

COMMON/SCAIPR/H I .HR . ALSC • I WEND. THRFK  »HLT .HLR . THETA.HTP. AA.REW 
COMMON/O I FPR/ HI 0»HPD .DM. AED »SLP *DLST »DLSR . I  PL . KSC.HLD «HRP . AWD . SWP 
COMMON /GAT / 1  A 
DATA  (QMD.flH  AUG  71  ) 

DATA  I CFK “.001  ,  .000  3  04  8  .  .000  304  8  I 
DATA  ICMK«1 *.1*609344.] *862 > 

DATA  <CFM«l*. *3048. .3048) 

DAT'i  (CKM“  1000.  .3280.83  989  5.32  80,8  39895) 

DATA  ( CKN* 1  *  .  ,62 1371 1922.. 5390568034) 

DATA  !P0l»8H  HORIZON.3HTAL.8H  VERT  I C A » 1 HL » BH  CIRCULA.IHR) 

DATA  ( FAT* 10H  ISOTROPIC. 3! 1H  ) »4H  DME.4I1H  ).14H  TACAN  (RTA-2I.3I1 
XH  I , 39H  *-LO0P  ARRAY  (COSINE  VERTICAL  PATTERN). 39H  8-LOOP  ARRAY  (C 
XOSINE  VERTICAL  PATTERN ) »34H  I  OR  II  (COSINE  VERTICAL  PATTERN). IH  . 
X40HJTAC  TILTED  20  DEG  WITH  40  MALF-POW  B.W..17HJTAC  T)LTED  8  DEG. 2 
X!  IH  )  ) 

DATAfALM*  -6. 2. -6. 15. -6. 08. -6. 0.-5* 95. -5. 88 .-5. 8. -5. 65. -5* 35. -5.0. - 
X4.5.-3.7) 

DATA!  TSC«-  16M  SFA  WATER  »16H  GOOD  GROUND  .16H  AVERAGE  GROUN 

XD  .161!  POOR  GROUND  .16H  FRESH  WATER  .16H  CONCRETE  , 1 6H 

X  MFTALLIC  1 


170 


DATA  (PA5=2H  .2H*  I 

DATA  ((PCI* . 1  =  1 .35  I  =  .00001 » .00002 , .00005 . .0001 , .0002 , .0005  .  .001  ►  . 
X002f.005#.0l..02.,05,.l  »,15,,2G..3o».A0..50..60»,70..80».85,.90r. 
X95.. 98  ..99, .995.. 998 ..999, .9995 ,.9998 ..9999,, 99995,. 99998* .999991 
DA TA  C VYD-33HFOR  HOURLY  MEDIAN  LEVELS  EXCEEDED  * 33HFOR  INSTANTANEOUS 
X  LEVELS  EXCEEDED) 

DATA(TYD=1 7H SMOOTH  EARTH  . 1 7H I RREGULAR  TERRAIN) 

DATA  ( MTM  =  20  •  10  »30»0*0  ) 

DATA  ( YCON-5. .10. .25.  .0.  «0.  ) 

DA  TA ( CC I  =  1 6H  SEA  WATER  »16H  GOOD  GROUND  .16H  AVERAGE  GROUN 

XD  » 16H  POOR  GROUND  »16H  FRESH  WATER  .16H  CONCRETE  .16H 

X  METALLIC  ) 

DATA  <DM0D=8H  DIFRACT)  *  DATA  ( 5M0D-8H  SCATTER) 

DATA  (CM0D.8H  COMBINE) 

FNA(FX*FA.F8.FC.FD)*( (FX-FBl^IFC-FDl/IFA-^B) >+FD 

JK-NK  S  IPL-NPL  S  KSC-NSC  *  1CC-NCC  %  ILB-NLB 

KK 1  MX  S  KD-MD  S  DMAX-CMAX 

TPTH-2.617993878E-2  S  TLTH-O.  S  TPKa20. 

ASPA-0.25  *  ASPB-0.25 

ZO-.OOOOOOOl 

ICAR-0 

RAD-. 017*5329252  t  DEG-57. 29577951  S  TWDG-12.*RAD 

PI-3.1A1S9265A  *  ERTH-6370.  %  NOC-l 

c  - start  of  parameter  sheet - 

PRINT  A 

PRINT  700.f3MD.I0T.IXT 
PRINT  VARFOR.ADENT.ADNT 

H2=HAI*CFK( IKI  *  HFS-HF I »CFK  ( I  X  )  L  FREK-F 

PRINT  701. HAI 

IF ( HA  I .GT .300000. )  ICAR-1 

IFfHAI.nr.lSOOOO. )  PRINT  712 

IF  (  HA  I  .L  T  <1 500  .  I  PRINT  7J3 

IFIHAI.LT.  1.5)  PRINT  71* 

IF (HAI  .LT.O.  )  GO  TO  8?5 
PRINT  702* HFI 
IF (HFI .LT.O. )  GO  TO  825 
IF ( HFI .GT .9000. I  PRINT  715 
IFIHFI.LT.  1.5)  PRINT  716 
PRINT  703.FREK 
IFIF.L  T, 1 00. ) GO  TO  805 
806  IFIF.LT.20.)  GO  To  *00 
I F ( F , G  T , 5  000 .  )  PRINT  718 
IF ( F.GT. 1 7000.  I  GO  TO  807 
808  IF ( F.GT, 100000. )  GO  TO  *00 
PRINT  $ 

IF ( AOI .LT.O. )  GO  TO  56 
PXH«PAS( 1  I 

67  GAO -AO  I  %  GAW-AWI 

PRINT  70A.GAO.PXH.GAW.PXH 
IF( SUR.GT. 15000.)  ICAR-1 
IF( SUR.LT.O. )  GO  TO  830 
811  ASPC»ASPA»ASPO* (6.F-B I *F 
P | R  P - F IRP 
HRP-HPF I »f FK ( IKI 
IF (MAI. LT. IHPr 1+600. > )  ICAR-1 
ETS-SUR-CFK ( IK )  t  HAS-H2-ETS 
IFIFTS.I.  T.O.I  FTS-O. 

I F ( SUR . GT, ] 6000, I  ICAR-l 
IF (HAS  -l  T.MFS)  GO  TO  7  70 
IFIDHSj .1  T.O.  I  DHSI-O. 

DH«OHS  I  *CFK  (  IK  1 

IF ( ENO.LT.250. .OR.ENO.GT. AOO. I  GO  10  801 
802  t'NS-ENO  ‘  F  XPF  ( -0 . 1 05  7»HRP  ) 

IF (FNS.Lf ,250. I  GO  TO  803 


171 


c 


c 


c 


804 


55 


829 

788 


759 

758 

753 

783 


EFRTH*ERTH/< 1 .-. 04665* EXPF ( .005577*ENS) > 
EART-EFRTH»CKN < IK) 


HT-HFS+ETS  *  Hl-HT 

“  T°  T  OLST “SORTF 1 2«*EFRTH»MTE 
HFRI-HTE*CKM< IK) 

IFIOHEI.LT.O*)  GO  TO  50 
EAODHE I *CFK  (  IK) 

PDH=PAS( 1 ) 

HR-H2-EAC  *  HRS-HR-ETS 

HRE-HR-HRP  *  DtSR-S0RTF(2.*HRE*EFRTH) 
IF(HRE.GE.50. )  0L5R=EFRTH*AC0SF<EFRTH/(EFRTH+HRE 
DS0  =  3.»SQRTF(  2000. *HTEU3.*SQRTF(  2000. *HRE> 


) 


)  I 


JK“1 

PRINT  705  »DHE I .PDH.HPF I.EIRP.IFATI  I  * IFA > *  I- 1 , 5 > 
I F  <  DC  I .LE.ZO)  GO  TO  789 
IF( ICC.LE.0l  GO  TO  789 

- COUNTERPOISE  PARAMETERS  CONVERTED- 


NOC*  1 

DCW  =  DCl*CFK< IK  I  $  HCW»HCI*CFKt IK) 

PRINT  706 • DC  I .HC I . ( CC I  I  I • ICC ) *  I ■ 1 ,2  > 

IFIHCI.LT. 0»»  GO  TO  828 
IFIHCI .GT.500. )  ICAR-1 
IF  (DCW.GT..1524)  ICAR-1 
IF(HCW.GT.HFS)  GO  To  825 
HFC-HT-ETS-HCW 
CONTINUE 

PRINT  707. (POL (  1  .  IPL * »  1*1 *2 > 

- HORIZON  AND  INITIAL  TAKE-OFF  ANGLE  COMPUTATIONS-- 

PDS-PTS-PHS-PASI 1 ) 

IF  ( KD.LE • 1 »  GO  TO  755 

HL  T«HHOI»CFK (IK)  $  DLT *DHOl »CMK ( IK ) 

hlts»hlt-ht 

DG-IDG  S  AMN-IMN  S  SEC- 1  SEC 

rET*RAO*(DGf ( ( (SFC/60. l.AMN) /60. ) )  S  ATET-ABSFI TET ) 
TATFT-TANF(TFT) 

I F ( KE  j  tO»  3  I  GO  TO  782 

IFIDLT. LE.ZO)  GO  TO  781 

IFIKE-l ) 730»7S8t780 

IF( TET.LT. 0.  )  GO  TO  752 

HLTS»0LT»TATET+IDLT«DLT/(2.*fFRTHl > 

HL  T “HL TS  +  HFS+ET S  t  HHOI «Hl. T*CKM (  IK) 

PHS-PA  «>(  2  • 

CONTINUE 

IF(OLT .LT.( .1 »ni ST  I .OR.OLT.GT.(3.*DLST> )  PRINT  809 
I F ( TET. GT.. 20943951 »  PRINT  810 
IFIHHOI.GT.’SOOO.)  ICAR-1 

PRINT  7n8 .DMO I .POS.IOG.IMN.ISEC.PTS.HHOI .PHS 


PRINT  725  .  (  TYt)(  I  ,KD)  .  1*1  .3  > 

PRINT  To9.EN-S.FNO 
I F  (  ILR.GT.Ot  GO  TO  76? 

PRINT  778 

763  PRINT  710. SUM . OHS  I . ( T  SC (  I. KS"). 1-1.2) 
PRINT  729.(VY0( I.KKl.I-1.5) 

PRINT  724 . PAS ( ?  ) 

IF(OMAX.GT.1000.)  UMAX-1000. 

IF ( ICAR.GT .0 )  PRINT  800 


C  - START  OF  WORK  SHEET 

PRINT  4 

PRINT  757. IDT . IXT.OND 
PRINT  5  *  PRINT  6 

PRINT  VARFOR • ADfcNT  »ADNT 
PRINT  731* MAI. H2 
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PRIM  M,'  .hi  |  ,1.1  s 
I'D  I  Nt  Ml.l  >1  h‘|  t 
P<*IM  Mo  ,AO|  ,i,A0,P*|| 

PRIM  7  *  0  i  AW  |  ,l,Aw  .  P*M 
7'MN  I  1  *7.  ,  OMI  |,i*i 
•’HIM  llj.l  I  HI' » |  |  HI* 

PHINt  MH,|I  *  ,  II  *  |  i  |»|lAl»|,|,ft) 

1 1  I  Ni>>  » I  I  ,  |  I  ....  to  / si, 

PRIM  7  *')  »|H  |  ,  1*1.  M 
l’M|NI  7sO,m<  |  ,IU  W 

**«  INI  l*  |  ,  It  .  lu  III  ,  |(,  I  ,  I  »  1  ,  >  I 
7AA  l  ON  T  |NM| 

PRIM  S 

PM  I  N  I  7  *  ’  ,  Ml  M  |  » I1 1 1 

17  U  «><  I  ,  1  Mill  ,  |  i,o  )o  10* 

,)t'l  *  1  I  N(  I  *>.?’0*t  (V,tOt  r/?O0,  )  101,11 
I)*|‘*.  I  .  1 1*«  SIN7  I  *1  A I  m,|tm /xoo.  I  I  }♦*  ,>» 

iom  i  on  r  i  mm 

►'HINT  7,'l*  ,M,' >1  Ai  .OMP.MMf 

PH  IN  I  7*. » ,  |l‘i  ,  i .  n  (  |  'l.  I  .  | ■  |  , y  | 

•'77  I  N  I  7*  s  , I ‘ 1 1 1 1  .in M |  , |i|  | 

PH  |M  7ftiS.PI'.,  |  |>i,,  INN.  I  Sfv"  »  T£  T 
I'H  |  N  I  7s  j  , Oils  .oil  M  ,01  T 
•*77 1  N  I  7*1*  ,1  NO, |  NS 
PM  I  NT  7,'ft  ,|  AN  I  ,1  I  II  |  o 
PM  INI  ’*0  *  St  *||  ,|  |‘, 

PHINI  TOO  ,1'MS  |  ,00 

PI!  INI  7*1  ,1  M  ,|  I  St'  I  |  ,  7  SC  i  ,  I  •  |  ,  y  I 
1*  I  I  I  H  ,I.T  ,0  I  Ip  ?fts 

P II I  N  T  *R1 

7ft«l  PN  Hit  r.'i,  I  will  I  ,7K  I  ,  |.  I  ,ft  I 
•'MINI  7->*,PAS|i>| 

I  •  I  I  f  AH  ,1,  |  ,0  |  PH  IN  T  800 
PM  IN!  * 

I  NO  OF  PHtl  IMINAHY  PRINTING 


flM"  H.  |  OH  .  ,1 

P‘  O'  s'  .  »l  1  01  H  I  (  U)(*f  H  I 
|!S|  i  '  I 'SO  ,p-.p 
A  I  AM  ,  ,»■».)  P>I,»S.«| 

Toni  ,  mi  ,  ,  si  pi,  |  i  (  i  hi  s  I 
1 1  p  I  I' 

f’l  S  I  I  •  »  ♦  (>,  s 

■' '  1  ‘  * •  '•  *■  •  ‘  1 1  ,  •  A  |  1 1|\  1  r,  I  r  i>  i  *  i 

"  S  t  I'M  A  1  .  I  Ml  ||,  I 

ii  i.r,,;<!:;;';  "i'S  s,',:rANU  ANl)  '’*hamit,r  cauuiauon. 

n^r  il".1  '  W  ,Ml'  *’  "til  l/IIIMI  *f  FR  TH  I 

I'**!  •!  7  H  ro»|  Af  uSf  I  7‘IM  I- t  F  T  I 

Ot  »<PM|  ,r>|  T 
AO  OHM.nMl  •Can  I  1 1  I 

I*  •  I7MI  .1  f  ,0,  I  i,(i  TO  507 

*  WWWO..M  or,  10.01  »  AUF5-AFP1TWFN0 

I 'HP  m|  sir 

*  A  1 1  S’  i  I  Ml  I  Ml,'  I  /nt  N  I  - 1  hi  M/  I  }  t  »T  rRTH  •  I 
\  Y  H  K  !  iiNi  I  '  *  I  I  I!  . 

I  a  *  I  s*  !  I  HMP  -  UN  I  •  pup  l  '  I  up  /  I  »  ,  1(1  H  III  I  I 

II  SATAN!  <  TAI|  SI 

l!  I  till  !•  HMP)  ,t  |  ,(>,  I  I*.  1* 

I  S  pl.l,P  p|  MOl'l  I  \  c,0  TO  (  \ 

|  *  fiHKi  .  PI  !  ♦  f  n  SR»  SU'MTI  I  it  »FI  7.  1m  »  (III  T  MRP  I  I 
|  *  CON'  I  N"l 


AUF5"AFP*TWFN0 


HH|ip  M  7 


HI.  |)K  ML  f 


I/.  I 


CALL  OEFRAC 

OVOGAINITETI  S  GDD-20.  *ALOG10  ( GVD‘ 

SMD«(  (  lNTFtDNM/l.»)*l.)Al.  *  AMD«AWD+1SWP*D> 

ATD*ARn»AMD 

02R«-( AWR/SWP* 

PRH»<( AMD-ODD >  *  WRH- 10. »* I PRH*. 1 ) 

2H»ALOGllHWRH)-2. 


C  - LINE-OF-SIGHT - 

CALL  BLOS 
SPD-iMD+2. 

C  — . -—BEYOND  THE  HORIZON  CALCULATIONS 

KFD-0 


DO  900  N  5  P  ■  1  i 
MZS*MTM(NSP  * 

IFtMZS.I F.O  *  00  TO  007 
DO  901  MX:'«  1  .MZS 
D«  3P0 '  CMK  (  I K  •  *  DNMwF.PD 

IFID.GT.DHRPI  GO  TO  17 
DLR'D-Pl.  T 

hlr«hl  T 

TATKR* I  (Ml.R-HR  I  /Dl  R  )  -  (  PLR  /  (  2  .  »FFR  TH  *  » 
rER.ATANF ( TATFR I 
19  CONTINWF 

IF  (  K  FD-  1  140*41  »  9? 

AO  F.5-0  S  KR'O 

KS*  1  %  ACD (KS I  *  AKD  »  ANO<KS>«DML 

A  MOD*  DMOD 

E  C I »HT  t ♦EFRl H  i  FC2«HR£+EFRTH  S  EC3-HL T-HRP+EFR TH 
CALL  SORB (ELI .EC3.EFRTHtDLT.TfT.R01 .RW1> 

CALL  S0RB(FC2  *EC3 • KER TH .DLH . TER »R02 .RW2 ) 

RE0.H0;*R02  *  REW»RW1*RW2  S  AA»GAO*REO+GAW*REW 

RWI  1  >«REW 
A  AIK  1)«AA 
00  in  KC« 1 « 100 
KSKS  +  1 
D«DNM*CML I  |  K  I 
SPO-ONM 

ACDIKSI-AID-M  5LP«DI 
AND  I KS I «D 

TWcND.20.*ALOG10IDl  S  ALFS-AFPfTWEND 
IFIO.CT.OHRPI  C.O  TO  A  A 
HI  R*Hl  I 

DLR«D-Ol  T  %  TATFRil (HLT-HR1/PLR»-I0LR/(Z.#EFRTM1 ) 

T  (  W  s  A  I ANF ( T A1 f  R  I 
A  A  (  ONT  .'NOT 

C  A I  l  SCATTER 

r>(  I  1 1  S  I  =  Al  M‘  -Al.  F  A 

AAI>  H  •  I  -  aA  *  RW ( K  S •  ■  HFYf 

I  F  CL  III  SI  ,1.  T  .20.  I  GO  TO  71 

k n  =  ►  R  » l 

IFKR.LF.JI  GO  TO  31 
AP.KS-l 

s$P«  I  SC  TIKS  )  -  SCTIKP  I  1/  I  ANpt  KS  I -aNDKPI  I 
IF  I SSO.l F. I -.01 »»  GO  TO  A9 
i  r  (  c.<m>,  ■  r  .  si  P  l  go  to  aO 

7l  DNM.DNM.l, 

70  L  <’AJ  r  |  MU. 

;R|NT  | A  t  * FD» l  *  GO  TO  77 

j  4  MJKMAI  I  ■>»  .•BftOMD  THE  ao  MILE  LIMIT  DOING  Dl  FFRAC  T  1 0N»  I 
A  9  FR»0  7  GO  in  7  1 

^  7  DO  A  7  >  r,  *  |  KkP 
D  *  ANf'  K  G  I 

K NF*  ’(’■«  i  Iff.  I  H  I  *  SPO«DNM 
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c 


36 

43 

48 


35 

3* 

41 


23 


46 

62 


200 


311 

312 

313 


1  1 


TWEND'20.*ALOG10<OI  > 

ATTS'ACOUGi 

AA« AAD ( KG )  $  REW-RWIKGIJ 

ASSIGN  36  TO  KT 
GO  TO  200 
CONTINUE 
CONT INUF 

SPO'ONM  S  MZS'6  S  KFD'l 
I F ( SCT (KPl.GE.ACDIKPl 1  GO  TO  33 
ACDIKPI'SCTIKP) 

SLP=( ACCnKP>-AROf / ( AN0< KP > -DML 1 
AEP'ACPtKPl-IANDIKPMSLPl 
ASSIGN  35  TO  K T 
PO  34  KG' 1  * KP 


ALFS'AFP+TWEND 

THETA'TET4TER+tD/EFRTH> 


GO  TO  37 


DrANO(KG) 

DNM=n»CKN< IK)  S  SPD'DNM 

TWENP*?0»  »AL0G1 0 1 0  I  $  ALES' AFP+TWEND 

ATD'Af D+l SLP*D> 


ATTS'ATP 
AMOP'CMOD 
AA'AADIKCiI  s 

REW'RWI KG  1 S 

THETA'TETfTER+ID/EERTH) 

GO  TO  200 

CON  T INUE 
CONTINUE 

SPD'DNM  * 

CONTINUE 

AMOP'DMOD 

M2S-6  S 

KFD'2  *  GO  TO  37 

ASSIGN  37  TO  KT 
ATD'AFr>«-(SlP*D) 

TWEND«20.*ALOG10(D>  *  ALFS-AFP+TWEND 

IFID.GT.OHRPI  GO  TO  24 

MLR-HLT 

DLR-P-PLT  s  TATE«»< IHLT-HR1/DLR)-IDLR/I2.«EFRTH> > 

T  FR  =  A  T  ANF  (  Y  A  TER  I 
CONT INUF 
CAU.  SCAT  TFR 
A  I  S* At.  SC-ALFS 

iFurs.i.r.Aroi  r,c  to  <*6 

ATTS'ATO  *  THE  YA'TET  +  TER-*  I  D/Ef  R TH I  *  GO  TO  200 

A  T 1 S*  AT  3  «  KFO"?  S  AMOO'SMOP  *  GO  TO  200 

CON  T I MUE 
A MOP' SMOD 

TWENiWn.  4ALOG10IO)  *  ALFS- AFP«-TWEN0 

CALL  SCATTER 

ATS'ALSC- At.FS  *  ATTS'ATS  *  ASSIGN  37  TO  K T 


CONT INUF 

- - - LONG-TERM  POWER  FADING' 

IF ID.LE.DSL  II  311*312 

DEE ' < 1 30*  *0 * /DSl 1  *  GO  TO  313 

DEE-130. FD-DSL1  5  GO  To  313 

CALL  V2P( DFE  *QG1 *CGR  *AD I 

NC  1  *NTT  +  1 

RF K“»l  RP-AL FS 

Pl'-AI T*i 


AL !M*3, 

AL10'PL+AD* 131  *  AY.ALin-ALlM 

IFtAV.LT. 0.*  AV'O. 

00  11  K'lilS 
BP  IK  I  <Pl  »At;  t  K  I  -  AV 

continue 

DO  12  K  »  1  . 1  2 
4|  (  H«-A(  M  (  K  I 

IF  IBM*  »  ..TT.ALLMl  BDU  >'*1  LM 
CON  I IMUr 
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c 


- VALUES  PUT  INTO  ISOTROPIC  POWER  ARRAY - 

IFIKK.GT.l >  00  TO  20 
23  PGS-PFS+GDD 
PFL*PGS+Pt.-AA 

PF Y  <  NCT  i>  1  ) »DNM  S  PFY INCT .2 > -P65  S  PFYI NCT.3)  -Pfl 

PFY (NCI ,4 )»BD( 12J-PL  *  PF YINCT *5 > -BDI18 I -PL 

PFY(NCT,6l»8D(2A)-PL 

IF ( SPD.GT .DMAX )  GO  TO  POT 

GO  TO  ICT, (35,36.37) 

37  CONTINUE 
903  £PD=SPD+YCON(NSP) 

901  CONTINUE 

SPD-SPD+YCON (NSP) 

NOP  =NSP-f  l 

IFiNOP.GT.3 I  GO  TO  907 
IF(YCON(NPP>.CQ.O.)  GO  TO  907 
I F ( NPo.FO* 0 •  GO  TO  907 
IXD-INTFISPD/YCONINPP)  ) 

SPO»(YCON(NPP)«FLOATF(  IXDn+YCON(NPP) 

900  CONTINUE 
907  CONTINUE 
100  CONTINUE 
RETURN 


- RETURN  TO  MAIN  PROGRAM - - - 

1/  TERMES  S  DLR.DRP  S  HLR-HRP  *  TATER«TATES  *  GO  TO  19 
- TROPOSPHERIC  MULTIPATH - 

20  DO  21  l-l  ,35 

oa ( ii =no( i ) -pl 

POA (  I  ltp( i ) 

21  CONTINUE 

IF( THETA. GE.TPTHI  GO  TO  26 
IFI THFTA.LF.O.  I  GO  TO  27 
OK-FNA t  THFT  A ,TPTH»  TLTH.TPK.ROHK ( 

?fl  CnNT [NUT 

CALL  YIKKIBK.PQK.OKI 

CALL  CONLUT (QA,QK,PQA,35*+1«,0. ,PQC,QC) 

DO  22  1-1.35 

22  BO ( I )«0C< l l+PL 
c>0  To  23 


24  TLR-TFS  *  RLR-DRP  *  HLR*HRP  *  TATER-TATES 

26  BK-TPIC  $  GO  TO  20 

27  RX-ROHY  $  (,o  TO  2B 

44  TER  =  TES  *  DIR-DRP  t  H'.R«HRP  !»  T/uER-TaTES 

- “-CALCULA1 ION  OF  RAV  BENDING - 

60  PPH  =PA  S ( i  I 

HP  2  * H7-HRP  *  HP1-H1-HRP 

DUM=0.0  t  2ER«0.0  S  OLIM--1.36 

QNS B  329 .  I  OHC-HP 1  S  QHA-MP2  %  QHS-HRP 

CALL  RAYTRAC(OUM) 

RY.TRACRAYIQLIMI 

DSO'OOt) 

ONS-ENS  *  QHC-ZER  %  0HA-HP2  *  QHS-HRP 

CALL  RAYTRAC(DUM) 

RY«TRACRAY( 2ER  > 

OLSR.OOD  S  T  SL  2 ■ DL  SR / EFR  T  H 
IFITSL2.1F, .11  GO  TO  53 
R?F*ErRTl(/<:oSFI  TSL2  ) 

HRF  s  R2F- FFR  TH 
54  IMHRC.GT.HP2I  HRF  *HP2 

HR.HRMHRP  $  EAC."H2-MRP-HRC 
DUE  I  t-FAOCKMI  IK) 


*  GO  TO  23 
S  GO  TO  45 
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JK  —  1 
GO  TO  55 

53  HRE»(0LSR*DLSR)/'(2.*EFRTH) 

56  CALL  ASORPJF.AOI.AWI 1 

PXH-PASI2I  *  GO  TO  57 

58  TEH«TET+<DLT/EFRTH) 

QNS'ENS  S  QHC-HLT-HRP  $  OHA 

RY-TRACRAYI TEH!  S  DLR-QQO  $ 

107  PRINT  106  *  GO  TO  400 

30*  QGl»QG9«l,o5  S  GO  TO  306 
75 2  HLTS»DLT»TET  +IDLT*DLT/<2.#EFRTH* ) 
762  PRINT  779  *  GO  TO  763 

76*  PRINT  786  $  GO  TO  765 

770  PRINT  8nO  S  GO  TO  400 


GO  TO  5* 


QHA-HP2  *  QHS-HRP 
$  DML-DLT+DLR  S  GO  TO  59 


GO  TO  753 


C  - HORIZON  PARAMETER  CALCULATIONS - - - 

781  HE«MAX1F(HTE*.005) 

DLT-DLST*EXPF(-.07*SORTFIOH/HE) I 
PPS-PAS ( 2  I 

IF(DLT.LT.( .1*DLST) I  DLT-.1*DLST 
IF(DLT.GT.(3.*0LSTI >  DLT«3.*DLST 
phoi-dlt»ckn<  iki 

GO  TO  759 

730  TRM«1.3*OH*I IOLST/OLTl-1. ) 

TRM-1 . 3*PH* ( ( OLST/OL  T 1-1  *  I 
Tt'T«I  •5/OLST)*(  TRM~ (4«*HTEl  i 
IFITET.GT.TWDGI  TET-TWDG 
CALL  RADEMS(TET.IDG.IMN.SEC> 

ISEC=XINTF(SEC» 

PTS-PASI2  I 
TATET.TANF(TET) 

GO  TO  750 

782  XTRM-SQRTFI I EFRTH*EFRTH*TATET*TATET >♦( 2.*EFRTH*HLTS) I 

YTRM»-EFRTH«TATET  S  DLT-YTRM-XTRM 

IF(OLT.LE.O.)  plt-ytrm+xirm 

PPS=PAS( 2 ) 

DHO I =PL T*CKN ( Ixl  t  GO  TO  783 
780  TATET=(HLTS/0LT)-(0LT/(2.*EFRTH) I  5  TET-ATANFC TATET ) 

PT  S-PAS ! 2 ) 

784  CALL  RAOEMS<TET»IDG,IMN.SEC> 

ISEC-XINTFISECI  S  GO  TO  783 

C  - SMOOTH  EARTH  PARAMETERS - 

755  PT;  PDSepAS ( 2 > 

DLTcPLST  S  OHOI»DLT*CKN< IKI 

TATET=(-hTE/DLTI-(DLT/(2,*EFRTH> I  *  TET-ATANFI TATET) 

HLT-HRP  $  HHOI«HLT*CKM< IK!  t  DH»0» 

GO  TO  704 


789  HFCnO. 

801  ICAR*"  1  ! 

803  ENS“250.  ! 

805  >CAR»I  ] 

807  Ii'AR-1  ) 

825  PRINT  800 
828  ICAR-1 
830  ICAR-1 


400  PRINT  840 
ENO 


*  GO  TO  788 
ENO-301 .  S  GO  TO  802 
ICAR-1  S  GO  TO  804 
PRINT  717  s  GO  TO  806 

PRINT  719  S  GO  TO  808 

»  GO  TO  400 

*  HC I -0 •  >  GO  TO  829 

S  SUR-0.  %  GO  TO  831 


-ABORTION  OF  PROGRAM - 

CALL  EXIT 
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PSWRB 


Subroutine  PSWRB  is  used  only  with  the  service  volume  program.  It 
obtains  an  isotropic  power  versus  distance  array  for  both  desired  and 
undesired  facility  for  each  aircraft  altitude  considered. 


SUBROUTINE  PWSRB 
C  ROUTINE  FOR  MODEL  AUG  73 

4  FORMAT <1H1> 

5  FORMAT C 1 H  I 

6  FORMATI20X. ‘INPUT*, 21X, ‘WORKING  VALUE*) 

106  FORMAT <5X.‘  OML  IS  LESS  THAN  ZERO.  ABORTING  RUN  *) 

840  FORMAT (5X. ‘PROGRAM  IS  BEING  ABORTED  FOR  WRONG  PARAMETERS*) 
DIMENSION  CFK  I  3  ) »CMK (3 ) ,CFM<  3)  .CKMI 3  >  ,CKN ( 3 ) 

DIMENSION  ACDI 101 1  *  AND ( 1 01 ) . SC  T  < 101 ) * AADI 101 ) ,RW( 10 1 ) 

DIMENSION  MTM ( 5  >  » YCON I  5 ) 

DIMENS  ION  YV( 10) .SVI 10 ) 

DIMENSION  PI  35) .QCI50) .OAC  50)  *PQA<  50)  .PQK.I50  >  .QIC. I  50)  .PQC<50) 
DIMENSION  REI2I .ADI35) *0DI35) »ALM( 1?) 

COMMON/EGAP/ IP.LN, IDT, I  XT 
COMMON /RYTC/QNS.QHC ,OHA,OHS,OOD 

COMMON/PARAM/HTE.HRE.D.OLT ,DLR,ENS,EFRTH,FREK,ALAM,TET»TER,K.D,GAO, 
XGAW 

COMMON/PAOUT/NCT ,PFY( 125.6) .JJ.HP1.HP2 

COMMON/S IGHT /DCW.HCW, PMlX.DML. OZR. IK.EAC.H2, ICC .HFC.PRH.DSLl ,E I RP» 
XQG1 «QG9 «KK » ZH «ROHK . I  LB 

C0MMON/SCATPR/HT,HR,ALSC.TWEND.THRFK,HLT .HLR.THETA.HTP.AA.REW 
C0MM0N/DIFPR/HTD.HRD.DH,AED.SLP.DLST.DLSR. ipl.ksc.mld.hrp.awd.swp 

COMMON/GAT/ IFA 

DA  T  A ( ALM  =  -6 •2»_6.16,-6.QS»“6.0,-5«95»-"5.88»-5.8»-5.65»— 5.35.-5.0.— 
X4.5  ,-3 .7 ) 

DATA  I ( P I  I ) » I  =  1 .35 )  =  .00001 . .00002 , .00005 ,  .0001 » .0002 , .000  5 , .001 , . 
X002  ,  .005  ,  .0 1  .  .02 . .05 . . I  ..15,.20,.3o,»AO,.50..60,(70».80»«85,«90,. 
X95.. 98. ,9 9, .995, .9901. 999, ,9995*. 9998. .9999, .9 9995, .99998. , 99999  I 
DATA  (MTM-20. 10.30. 0.0) 

DATA  (YC0N=5. .10..25..0, .0. I 

DATA  IDM0D=8H  DIFRACTI  $  DATA  (SM0D«8H  SCATTER) 

OATA  I CM0D«8H  COMBINE ) 

DATA  (CFK  =  .001  ..000  3  04  8, .000  3048) 

DATA  (CKN'l . *.62 137 1 1922,. 5 399568034 ) 

DATA  I  CKM= 1000. ,3280.8  39895.32  80.839895) 

DATA  ICFM«1 •«. 3048 » .3048 ) 

DATA  (CMK»1*. 1.609344, 1.852' 

FNA(FX.FA,F8»FC,FD>«( I FX-FB » *  I FC-FD» / I FA-FB) >+FD 
TPTH=2.617993876E-2  S  TLTH»0.  *  TPK-20. 

F-FREK 

ASPA-0.25  *  ASPBaO .25 

NOC  »0 

ASPC»ASPA‘ASPB* (6.E-8 )*F 
IFIF.GT.1600. I  GO  TO  304 

QG1 » I ,21‘SINFI 5.??»ALOGl0(F/200. 1)1+1.28 
QG9* ( ,18‘SINF I5.22‘ALOG10(F/200. I ) >+1.23 
306  DSO * 3 . * SOR TF 1 2000, *HTE ) +3.*SQKTF( 2000»*HRE • 

CUBTR.100./F 
DSP-63. ‘CUBERTFICUBTRl 
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DSLl-DSn+DSD 

THRFX-30.*ALOG10<FREX> 

I CPT -0 

dls-dlst+dlsr 

AFP-32. 45+20. «ALOG10 fFREX > 

F-FREK 

DXAX«DMAX*CMK<IK> 

C  - HORIZON  POINT  DISTANCE  AND  PARAMETER  CALCULATION - 

IFfJJ.LT.il  GO  TO  58 

TRM- ( (HTE+EFRTH) *COSF ( TET • I / ( HRE+EFRTH 1 
DML-FFRTH»( ACOSF ( TRM 1 -T ET 1 
59  DNM-DML*CKNl IK> 

IFIDML.LF.O.  1  GO  TO  107 

D-DML  S  DLR-D-DLT  %  TWEND-*20.*AL0G10(  D>  $  ALFS-AFP+TWEND 

HTP-HRP 

DRP-DLSR 

TATER=I (HLT-HR) /DLRl-fDLR/ <2.*EFRTH» » 
lER-ATANF(TATER) 

TATES- ( (HRP-HR) /DRP 1 - < DRP/ < 2 . *EFRTH > > 

TES-ATANF(TATES) 

IFf  (HLT-HRPl .LE.O.  I  15.14 
15  DHRP=DLSR+DLT  $  GO  To  13 

14  pHRP=DLT+DLSR+SQRTF (2«*EFRTH*(HLf -HRP 1 1 
13  CONTINUE 

HTD-HT  S  HRD-HR  S  HLO-HLT  $  HPP-HRP 
CALL  DEFRAC 

GVD-GAIn( TFT  I  S  GDD-20.*AL0G10(GVD) 

SMD*  ( (  INTFf  DNM/1. 11*1.1+1.  S  AMD- AWD+ I SWP*D 1 
ATD* ARD= AMD 
DZR  — (  AWD/SWPI 

PRH—  (  AMD-GDD)  S  WRH- 1 0.**  <  PRH*.  1  1 

ZH-AL0G10IWRHI-2. 


C  - LINE-OF-SIGHT - 

CALL  CL05 
SPD-SMD+2 . 

c  - BEYOND  THE  HORIZON  CALCULATIONS 

XFD-0 


DO  900  NSP-1.5 

MZS«MTm(NSPI 

I F  I  MZS.Lf.  .0  1  GO  TO  907 

DO  901  MXS-l.MZS 

D  =  SPD»CMK < IX  1  S  DNM-SPO 

IFfD.GT.OHRPl  GO  TO  17 

DLR-D-DLT 

HLR-HLT 

TA  TER= ( (HLR-HR)/DLR)-(DLR/(2.*EFRTHt 1 
TER-ATANF(TATER) 

19  CONTINUE 

IF<XFD-1 >40«41 .42 
40  XS  =  0  S  XR-0 

XS-1  S  ACDfXS)-ARD  *  AND  I XS I -DML 
AMOD-OMOD 

FC1-HTE+EFRTH  *  EC2-HRE+EFRTH  *  EC3-HLT-HRP+EFRTH 

CALL  SORBfECl .EC3.EFRTH.DLT.TET.R01.RWll 
CALL  S0RBIEC2  .EC3.EFRTH.DLR.TER.R02.RW2l 
RE0-R01+R02  S  REW-RW1+RW2  S  AA-GAO*REO+GAW#REW 

RhMll-REW 
AADIll-AA 
DO  30  XC-l.lOO 
XS-X'-.l 
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D-DNM*CMK<IK) 

SPD=DNM 

ACD<KS)»AED+ISLP*D) 

AND(K5)*D 

TWEND=20.*ALOG10<D)  $  ALPS- AFP+TWEND 

IF(D.GT.DHRP)  GO  TO  44 

HLR-HLT 

DLR-D-DLT  *  TATER*  I ( HLT-HR I /OLR*- I DLR/ (2  »*EFRTH>  • 
TER-ATANFITATER) 

45  CONTINUE 

CALL  SCATTER 

SCTUSUALSC-ALFS 
AAD(KS)- AA  S  RWIKSJ-REW 
IF(SCT(KS>.LT.20.I  GO  TO  31 
KR=KR+1 

IF(KR.LE.l)  GO  TO  31 
KP=KS-1 

SSP-  (SCT(KS)-SCT(ICP)  )  / < AND< KS > -AND  I KP >  ) 

IFISSP.LE.t-. OlH  GO  TO  49 
I F ( SSP.LE • SLP )  GO  To  46 
31  DNM-DNM+1. 

30  CONTINUE 

PRINT  14  S  KFD*  1  S  GO  TO  33 

14  FORMAT <5X.»BEYOND  THE  50  MILE  LIMIT  DOING  DIFFRACTION*) 
49  KR  =  0  $  GO  To  31 

33  DO  43  KG=1.KP 
D*  AND I KG ) 

DNM-D+CKN (IK)  S  SPD-DNM 
TWEND*?O.»ALOG10(D>  $  ALFS* AFP+TWEND 

ATTS=  acd<  kg  J 

AA  =  AAD(KG)  *  REW»RW(KG>S  THETA- TET+TER+I D/ EFRTH) 

ASSIGN  36  TO  KT 
GO  TO  200 
36  CONTINUE 
43  CONTINUE 

SPD  =  DNM  J  MZS-6  S  KFD-l  *  GO  TO  37 

48  IFISCT (KP).GE.ACDIKPI •  GO  TO  33 
ACD(KP)«SCT(KP) 

SLP-I ACD(KP) -ARDl/I AND(KP)-OMU 
AED=>ACD(KP)-(AND<KP)*SLP) 

ASSIGN  35  TO  1C T 
DO  34  KG* 1  *  KP 
DaANDir.G) 

DNM=D«CKN< IK)  *  SPD-DNM 
TWEND*20.*ALOG10(D>  t  ALFS-AFP+TWEND 
ATD=AED+( SLP*D) 

A  TTS  =  ATD 
AMOD-CMOD 

AA-AAD(KG)  *  REW«RWIKG>$  THETA- TET+TER+ < D/EFRTH) 

GO  TO  200 
35  CONTINUE 

34  CONTINUE 

SPD*DNM  %  MZS-6  *  KFD-2  5  GO  TO  37 
41  CONTINUE 
AMOD=DMOO 
ASSIGN  37  TO  KT 
ATI)=AFO+(SLP*D) 

TWEND*20.»AL0G10(D)  5  ALFS-AFP+TWEND 

IF(U.GT.DHRP)  GO  TO  24 
HLR=HL  T 

DLR  =  D-DLT  S  TATER- < ( HL f-HR I /DLR > - < DLR/ 1 2 .*EFRTH) ) 

TER-ATANFl TATER) 

25  CONT INUE 

CALL  SCATTER 
ATS=*ALSC-ALFS 
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IFIATS.LE.ATD)  00  TO  46 

ATTS=AT0  i  THFTA«TET+TER+<D/EFRTH)  S  GO  TO  200 

46  ATTS-ATS  S  KFD-?  S  AMOD-SMOD  $  GO  TO  200 
42  CONTINUE 

amod^smdo 

rWEND  =  2n.'}ALGolO(r>J  i  ALFS-AFP+TWEND 

CALL  SCATTER 

A TS  =  AL SC-ALFS  $  ATTS-ATS  J  ASSIGN  37  TO  KT 

?00  CONTINUE 

C  - LONG-TERM  POWER  FADING - - - 

ifid.le.dslh  sii*312 

311  D£E=< 130«*D)/DSL1  *  GO  TO  313 

312  DEE-130. +0-DSL1  S  GO  TO  313 
31?  CALL  V2D( OEE  *QGl *QG9 *AD  > 

NCT=NCT+1 
pfs=eirp-alfs 
PL*-ATTS 
AL  IM-3  . 

AL10°PL+AD( 13  I  $  AV-AL10-ALIM 

IFIAY.LT.O.)  AY-0. 

DO  11  K-1.35 
BD(KI -PL+ADIK )-AY 

11  CONTINUF 

DO  12  K  =  1  *12 
ALLM=-ALM(KI 

IFIBD(K).OT.ALLM)  BDdO-ALLM 

12  CONTINUE 

C  - - - VALUES  PUT  INTO  ISOTROPIC  POWER  ARRAY - 

IF ( K<«GT. 1 )  GO  TO  20 
?3  PGS-PFS+GDD 
PFL  -PGS+PL-AA 

PF  Y ( NO  T  1 1 )  =  DNM  $  PFY(NCT*i I-PGJ  *  PFY I NCT *  3 ) -PFL 

PFY (NCT  *4 >  -  BD  ( 1 2  I -PL  S  PFY I NC T *5 > -BDI 1 8 ) -PL 

PrY(NCT.6  )=BD(24)-PL. 

IFISPD.GT.DMAX »  GO  TO  907 
GO  TO  KT* (35  »36  *37) 

37  CONTINUF 
903  SPD-SPD+YCONINSP) 

901  CONTINUE 

SPD-SPD+YCONINSP) 

NPP-NSP+1 

I F ( NPP. GT .5 •  GO  TO  907 

I  F  (  YCO.NiNPP)  .EO.O.  I  GO  TO  907 

IFINPP.EO.O1  GO  TO  907 

1X0= INTFISPD/YCONINPP) 1 

SPD=( YCONINPP)*FLOATF( I XD » UYCONINPP) 

900  CONTINUF 
907  CONTINUF 
RFTURN 

C - RETURN  TO  MAIN  PROGRAM - 

17  TER-TES  »  DLR-DRP  J  HLR-HRP  S  TATER-TATES  *  GO  TO  19 

C  - TROPOSPHERIC  MULTIPATH - - - 

20  DO  21  1-1*35 
QA ( 1 ) =BD( I ) -PL 
POA ( I )-PC 1 1 

■21  continue 

lFtTHETA.GE.TPTH)  GO  TO  26 
IFITHETA.LF.O. I  GO  TO  27 
BK='FNA(  THFTA.TPTH.TlTH.TPK  .RDHK  ) 

?8  CONTINUE 

CALL  Y IKK <BK *PQK *QK I 

CALL  CONLUT ( OA .OK *PQA . 35 • *1 . *0 . *PQC  *QO 
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DO  22  1*1*35 
22  BO(I  )  «=QC  (  1  l+PL 
GO  To  23 


24 

TER'TES 

s 

DLR=DRP  » 

HLR-HRP 

S 

TATER-TATES 

S  GO 

TO 

25 

26 

BK=TPK 

$ 

GO  TO  28 

27 

BK=RDHK 

$ 

GO  TO  28 

45 

44 

TER'TES 

s 

DLR'DRP  S 

HLR-HRP 

S 

tater-tates 

$  GO 

TO 

58 

TEH=TET+(0LT/EFRTH> 

IF (KD.LE 

.  1 ) 

TEH=0.0 

ONS'ENS 

t 

QHC=HL  T-HRP 

*  QHA- 

HP2 

S  QHS-HRP 

RY=TRACRAY< TEH)  *  DLR'QQD  %  DML*DLT+DLR  S  GO  TO  59 

C  - abortion  OF  PROGRAM - 

107  PRINT  106  S  PRINT  840  S  CALL  EXIT 

304  QG1=0G9=1.05  $  GO  TO  306 

end 


RADEMS 


Subroutine  RADEMS  converts  an  angle  expressed  in  radians  to  one 
expressed  in  degrees,  minutes,  and  seconds. 


SUBROUTINE  RADEMS! ARG. IDE . 1 M I .SEC) 

C  ROUT  inf  FOR  MODEL  AUG  73 

C  SUBROUTINE  To  CHANOF  RADIANS  TO  DEGREES.  MINUTES  AND  SECONDS 

DErARSF  (  ARC.)  *5 7. 29577951 

i  of  ■»  I  n tf  ( nr  > 

Am  I N  T  =  60  •  *  (  OF  -  F  i.  OA  TF  I  I  OF.  I  1 

I  M  I  =  I  N  T  F  (  AM  I  N  T  I 

SEC* ( AMINT-FLOATF I  I M  X  I  1*60. 

IF! SEC. GT .59.99995  I  GO  TO  9 

7  IF! jMI.or.59I  GO  TO  8 
6  IDF=XS IGnF( IDE.ARG) 

RETURN 

9  SEC «0 .  $  IMi-IMl+l  S  GO  TO  7 

8  10E-IDE+1  S  IM!*0  *  GO  TO  6 

END 


RAYTRAC 

function  RAYTRAC  performs  the  raytracing  described  in  the  text 
following  figure  14.  It  is  used  in  calculation  of  effective  aircraft 
altitude  via  (34)  and  effective  distance  via  (177)  orl.y  when  the  effec¬ 
tive  height  correction  factor  (table  1)  is  not  specified. 
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FUNCTION  RAYTRAC(TT) 

C  ROUTINE  FOR  MODEL  AUG  73 

COMMON/R YTC/ENS  *HC  *HA  *HS  *D 

DIMENSION  A(2?) »RI (25>  *EN<25) *HI25»  *TEI (251 «R(25) 

DA  TA(H*0.004«01..02>.05..1<a2..305..5>.7.1.»l<524«2«»3.04B.5..7..1 
XO. *20.. 30. 480. 50.. 70.* 90.. X 10. »225.. 350.. 475. > 

C  - SETING  UP  ARRAY  OF  REFRACTIVITY - 

DN*-7.32»EXPF(0.005577*ENS)  *  CE-LOGF ( ENS/ ( ENS+DN )) 

AZ*6370. 

DUM-0.0 
AS-AZ+H5 
DO  10  1*1  .25 

EN(  I  >=EXPF(-CE*Ht  I  »  t*ENS*l.E~6  S  RI  ( 1 1 -1  .<-EN(  1 1 
R  (  I  I  *  AZ+HUUHS 
10  CONTINUE 

DO  20  1*2.25 
K  *  I  -  1 

DN2N*L0GF  ( R  I  (  I>  I  -LOGF ( R  I  (X,  •  I 
DR2R=L0GF(R( I > )-LOGF(R<K ) 1 
A (  1  1=DN2N/DR2R 
20  CONTINUE 
R AYT  RAC*DUM 
TT*0. 

RETURN 


C  - ENTRANCE  FOR  TRACING  RAY - 

entry  tracray 

TE*TT 

RC*  A2-.HC  +  HS  *  RA*  AZ+HA+HS 

ENC*  +1 .E-6*ENS*EXPF(-CE»HC I  S  R1C»1»+ENC 

ENA*  +1.E-6«ENS»EXPF(-CE*HAI  %  RIA-l.+ENA 

BALL  *0.  S  ATE*TE 

IFITE.GE.O. I  GO  TO  41 
I F ( R I  1  I.FC.RC)  GO  TO  73 

X«R( 1 )/(?.»RCl  J  Z»(RC-R(1I)/RI1)  *  W*(EN( ll-ENCI/RIC 

TEG*-?.»ASINE< SORTE ( X* ( Z-W)  * •  *  GO  TO  72 

73  TFG'0.0 

72  IFCTE.LT. TtGI  TE*TEG 

ATE*ABSF( V  E • 

IF  (  TE  .GT. ft.  >  GO  TO 
DO  70  1*2.25 

Y*2.*(SINF(0.5«ATE ) 1**2  S  Z- ( R ( I ) -RC * /RC 

W*( ENC-EN ( I » >»COSF( ATEI/RI ( I  I  *  X*Y+Z-W 
IFIX.LT. 0.0»  '0  TO  70 
CT*5QRTF( 0.5*KC*X/R( I) I 
IFICT.LE.J.)  GO  TO  60 
70  CONTINUE 
60  CT*2.«AdNF<CT> 

BALL«2.#CT*C-A( I »/( A< 1 1+1.)  ) 

TEKD.CT  t  N  K.  *  I  + 1 
DO  BO  I  «NK .25 
R T*R (  II  S  RIT.RKSJ 
IF (RT • G  T . RC )  GO  TO  61 
62  L*!-l 

X=RIILI*R«LI/(RIT»RTJ 
TEIU l*ACOSF(COSF(TEI(L))*X) 

><>.*l-M|))/(A(I|.l,l 
BALL-BALL +(  TEH  I  >-TFffL  I  )*X 
NL  A*  I 

IF (RT  *RC 1  GO  TO  40 
80  CONTINUE 
40  CONTINUE 
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n  n 


s 


THILL  I  'ATE 


IF(NLA.LT.?»  N  L.  A  =  2 
LL'NLA-1 
DO  90  I =  NL  A  • 25 
LC  =  T -  1 

44  RTrRI  II  $  R I T=R I (1  )  S  FNT  =  ENin 

IF  <KT.GT.RA>  r.O  To  46 

47  X=RC/(2.»RT)  $  Y =2 . * < S  INF < 0.5*A TE H ** 2 

Z  = (RT-RCl /RC  *  W-(£NC-ENTI*COSF(ATE»/RIT 
TEI I  I )*2«*ASINF<  SQR  TF <  X* ( Y  +  Z-W I ) ) 

X-  -A(I)/(Ain+l.l 

BALL-BALL +  H  TEI ( II-TEI (LC>  >*X) 

TEA=  TE III)  *  IFIRI I ) .GT.RA I  GO  TO  100 
90  CONTINUF 

X=R  I  ( 25 ) »R ( 25  I /RA  *  TEA- ACOSF I COSF I  TEA  I  *  X ) 

100  CA-I  TFA-TE  +  8ALL) 

D=AS»C  A 

DN=0*.5399868034 

C  T -COSF ( BALL )  *  ST-S INF < BALL )  $  TNT-TANF < TEA » 

Y-RI4/RIC  *  X-(CT-ST*TNT-Y)/tY*TANF(TE>-ST-CT»TNT) 
X  =  A  TANF ( X ) 

C  X  =  TF-X 
CTp-COSFI tfa  I 

RAYTRAC-CX 
RF  TURN 

41  DO  88  Nl.-2.25 

IFIRC.LE.RINLI )  GO  TO  86 
88  CONTINUF 
NL-25 

86  NLA =  NL  *  GO  TO  40 

46  RIT-RIA  *  RT -RA  *  FNT-FNA  *  GO  TO  47 

61  RT.RC  $  RIT-RIC  *  GO  TO  62 
END 


RECC 


Subroutine  RECl  is  used  in  calculating  reflective  coefficients 
via  (61)  through  (69),  and  (19b). 


SU8ROUT INE  RECCIX I 1FK1 lR*NP*MS«OH*R«PIC*RLM> 

_ NOTE -  THIS  ANGLE  IS  LIKE  THE  FORMULATION  IN  TN  101  AND  IS 

PI-C 

ROUT  INF  F^p  VOOf  1  AU(J  73 

THIS  INCLUDES  THE  CIRCULAR  POLARIZATION 

DIMENSION  SGI  7  I *FPI 7 ) 

COMMON/ EGAP/  ip,ln*idt*ixt 

DA  IA ( KP-B1 . *25. • 16. .4. *81 .*5. *  1. > 
DATaISGs8.*.02*.005».001*.010».010»10.Ea06' 

PI  =  3. 1 41802684 
0  12  =  1.6  7070632 
I  C  =  0 
S  I  =  X  1 

TWl  11=2.0  06  841  ?3  2L-?*EK«  1-1  .  * 

IIP  T  ms =NO 

IF ( SI .1 F .0. *  GO  TO  301 


184 


16 


18 


36 

25 

10 

11 

6 


12 


13 


14 


15 

IT 

1*» 

20 

21 

22 

23 


3l 


IFISI.GE.PI2I  GO  TO  300 
S I S I *S I NF ( S I ) 

COSI=»COSF  (  SI  ) 

IFCSISI.LE.O. >  GO  TO  15 
SQ5I*SQRTF<SI5!> 

IF(MS.GT.O)  GO  TO  19 
IFIDH.LE.4.*  GO  TO  17 
SH=.7fl»DH*EXPF<-.5*<DH**.2"S>  > 

FXDH=EXPF( TWLD*SH*SISI 1 
DX  = (SH*SISI*FK/?99. 79251 
I F < DX.GT.0.3 )  GO  TO  32 
I F ( DX.GF. 0.1237)  GO  TO  33 
IF( DX.GT. 0.07391  GO  TO  34 
IFIDX.GE. 0.00325)  GO  TO  35 
PD=946.*DX*DX+0.01 
CONTINUE 

IFIMP-2)  10*11*20 

ASSIGN  12  TO  N 

GO  TO  6 

CONTINUE 

ASSIGN  13  TO  N 

X=< 18000. *SG( I » l/FK 

TRM*FP( I l-(COSI*COSI 1 

TUPS»SORTf(  (TRM*TRMU(X*X)  I+TRM 

P.SQRTF ( TUPS*. 5 ) 

GO  TO  N.( 12*13) 

0=X/<2.*P> 

DENOM= ( P»p)  •*■  ( Q#Ql 

B«1 ./DENOM 

AM- ( 2.«P> /DENOM 

RS*< l.+  (B*SISI*SISI >-(AM*SISI 1 ) / 1 1 .+ 1 B*S IS I*S I S I U(AM*SISI 1 » 
R.SORTF(RS) 

TOP--0 

BOT-SISI-P 

CALL  RTATAN<TOP,BOT.TRAI 

TOP  -0 

BOT-SISI+P 

GO  TO  14 

Q«X/«2.*PI 

DFNOM= (P»Pl ♦ (0*0> 

B*( (EPf I »»FP( I»  > ♦ I X»X  » I /DENOM 
AM. (2,*( (P»FP( I  I UI0*X) ) I /OFNOM 

RS.(1.*(B»SISI»SISI l-l AM»SISI II /I  1 .♦ ( B»S 1 S I • S I S 1 1 ♦( AM*S I S I > 1 
R.SORTFIRSI 

top . < x*> s i s i  t-o 

BOT. (FPI  I  t  *  S I  SI  I -P 
CALL  RTaTANHOP.BOI .TRAI 
TOP«(X*SISI t*0 
BOT. (EP (  1  t*S  I  SI  »+P 
CALL  RTATANI TOP.BOT.rRBI 


PIC-TRA-TRB 
I F ( IC-1 *  32*22*73 
SOSI-n.  *  on  to  16 
SH».39#DH  *  GO  TO  Id 


SH-O. 

* 

F  X  DM. ] . 

ft  GO  TO  25 

IC-1 

S 

MP.MP-I  *  GO  TO 

11 

RLM.R 

t  return 

I  C«2 

ft 

RV«R  S  PV*PIC 

1 

HP.MP-1  ft 

IC-0 

ft 

RH.R  ft  PM" PIC 

TER* 

(  <  RVRV)  ♦<RH»RHI  ♦(2.»RV*Rh*C0SFIPM-PV>  (  1 

IF ( IFR 

.LF. 

0.1  GO  10  30 

R.GQRTFI TFRI/?. 

T  OP  » ( RH*  S I NF I  PH (  UIRV»S!NF'PV>» 
BOT.(RH»COSF <PH» 1  +  ( R V»COSF 1 PV I  I 
IF (BOT.FQ.O. I  GO  TO  24 


GO  TO  10 


185 


CALL  RTATAN I  TOP .POT .PC  1 


PIC-PC  5 

GO  TO  51 

24 

PIC-PI/2. 

$  GC  J 

5  1 

30 

R-0.0  * 

GO  TO  31 

32 

PD= ( 0. 8 75 *EXPF( -3.88*0X1 1+0.01 

S  GO 

TO 

36 

33 

PD=!-1.06*QX 1+0.601 

i  GO 

TO 

36 

34 

PD=0.45+SQRTF( .000843 

-IDX-. 10261**2) 

S  GO 

TO 

36 

35 

PD=6. 1 5«0X 

S  GO 

TO 

36 

51 

IFIMS.GF.l 1 

GO  TO  21 

RLM-R*PO 

RcR»EXDH 

$ 

return 

52 

1F(NP.FQ.2> 

GO  TO  53 

GO  TO  51 

53 

continue 

GO  TO  51 

300 

j  I  =P 12  $ 

SISI-1. 

1  COSI-O.  s 

SOSI-l. 

S 

GO 

TO 

301 

SI-0.  s 

SISI-O. 

S  C0S1-1.  s 

SQSI-O. 

S 

GO 

TO 

END 


RTATAN 

Subroutine  RTATAN  is  used  to  obtain  arctangent  values  for  anoles 
the  angle  is  placed  in  a  quadrant  that  is  appropriate  for  phasor 
manipulations,  e.g.,  (81). 


SUBROUTINE  rtayani TOP.DENOM. ANGLE  1 
C  routine  eor  modfl  AUG  73 

C  SUBROUTINE  TO  FINO  ARCTANGENT  IN  THE  CORRECT  QUADRANT 


PI-3.141502644 
TWOPI-6. 283184308 


I  F  ( 

TOP 

1  21 

.  I  1 

•  2  1 

21 

IF  1  OF  Mom  1 

76  ». 

77. 

76 

2  7 

IF  1 

TOP 

•  1  ] 

.79 

?R 

ANii 

iFr 

P[  / 

?  • 

GO 

TO 

1  8 

?e 

A  NG 

i  r  - 

<  T. 

•  PI 

1  /  7 

• 

nn 

TO 

1  H 

3  , 

T  uf 

T  A  , 

T  OP /OF NOM 

IF  f 

lufTA  i 

in  ♦ 

I  1  » 

1? 

10 

T  Ml 

1  A  T 

I  ii| 

T  A* 

(  -  1 

.0  1 

1? 

A  nG 

L  f  ; 

A  T  anF  1 

iHt 

r  a  > 

IF  ( 

1 0  n 

1  1  ' 

.14 

•  14 

13  I  F  ( I'(  NOm  I  |  *:  .  If, .  If 

l a  angi r -c i ♦ angle 
PE  T|  RN 

IF  ANGI  r.TwnPI-ANGir 

«T  Turn 

]4  I r  <  T"  NOW  I  17.18.18 

I  7  ANGLE -p | -Angle 
| 8  RETURN 

II  a ngi r *o  •  o 

1  -  S IGNF  I  ’  . . TOP  * 

» ■  S  I  (.Nr  (  1  .  .DC  SUM) 
i E I  X  1 19,70.20 
19  IF i r 1 i 4. )6. 1 6 
?0  IFIYll7.Ifl.10 
END 
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SCATTER 


Subroutine  SCATTER  calculates  basic  transmission  loss  for  scatter 
paths  and  is  used  in  determining  scatter  attenuation  (sec.  A. 4. 4). 


SUBROUTINE  SCATTER 


C  ROUTINE  FOR  MODEL  AUG  73 


DIMFN5ION  REI2  > 

COMMON / P AR AM /HTFE. HR FE  *D»DLT .DLR.ENS 


•EFRTH.FREK.ALAM*  THET  tTHER.KD* 


XGAO  *  GAW 

COMMON/SC A TPR/HTS, HRS. SUM. T WEND .THRFK i HLT .HLR » THETA »HTP . AA.REW 
FRP I =1 ?• 567 
19  DLCT^DLT 

IF (KD.LE.l I  GO  TO  10 
THOT=THET+(DLCT/EFRTH) 

22  DLCR'Dl  R 

THOR =T HER +IDLCR/EFRTH) 

24  A00=<D/<2.»EFRTH» l+THET  ( 1 HTS-HRS 1 /O I 
B00=(0/(2.*EFRTH) I+THER-! < HTS-HRS >/D> 

DS=D-DLCT-DLCR 

IF(DS.LT.O.>  0S  =  0. 

THOO-AOO+BOO 

DST«< ( 0*000 1 / THOO I -DLCT 

I F I T  HO  T*25*2fe*26 

25  DST«DST-aBSF(EFRTh*THOT ) 

26  DSR ■ ( ( D*AOO I /THOO I -DLCR 
IF ( THOR  *27*28*28 

27  DSR*DSR-ABSF(EFRTH*THORI 

28  CALL  DELTA! THOT .DST.ENS. DAO) 

AOr AOO+DAO 

CALL  DELTAITHOR.DSR.ENS.DBO) 

BOcBOO+DBO 

S» AO/BO 

THET  A  =  AO+BO 

VTK«=FRPI*HTFE»AO 

VRK»FRPI*HRFE*BO 

IF ( 5-1 » I  29*  29  #  30 

30  CONTINUF 
S»1  ,/s 
VTP-VRK 
VRP  «VTK 
GO  TO  31 

29  CONTINUE 
VTP>=VTK 
VRP  =VRK 

31  TERM*(S«THFTA)/IIl.+S)«(l.+5) I 
H1=TFRM#DS 

HSMOa  TERM'D 
DTHt  -D»  the:  T  A 

TR1»EXPF(-.U000038*HSMO**6» 

TR2=.031-<  .00  2  32»ENS)3-(  .00000 56 7*ENS*ENS > 
ETA5>.‘696*HSM0*(1.+!TR2*TR1)  I 
F0« 1.084* ( ETAS/HSMOI *<  HSMO-Hl-HLT-HLRl 
I F ! THETA.L T .0 •  I  DTHE»0 « 

VT-VTP/ALAM 
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VR-VRP/ALAM 

CAI.L  HCHNOT < ETAS.S. VT.VR »HOl 

312  IFITHFTA.LT.O.  )  GO  TO  3  13 
CALL  FDTFTAl FNS.PTHF.S.DB) 

314  SUM=  THRFtC  -TWFND-FO+HO+DB 

c  - CALCULATION  OF  OXYGEN  AND  WATER  VAPOR  RAYS 

EC1 -HTS-HTP+EFRTH  t  EC2=HR$-HTP+EFRTH 

HET=HLT-HTP+EFRTH  $  HER-HLR-HTP+EFRTH 

IFIOS.GT..0O1 )  GO  TO  11 
14  CALL  SORBIEC1 .HE T , EFRT H , OL T . THE T . RE  I 
REO  =  RE ( 1  )  S  REW  =  RE(2I 
CALL  SORR ( EC2 .HFR.FFKTH.DLR.THER.RFi 
REO  =  REO  +  REI 1  I  $  REW=REW+RE (2» 

12  AA=GAO*RFO+GAW»RFW 
RETURN 

313  DR  =  0.  *  GO  TO  314 

10  THOT  =  T HOR  =0 •  *  DLCR'DLR  t  GO  TO  24 

11  HV=HET+<  DST*TANF< THOT!  )  +  < DST*DST/ <  2.«EFRTH> ) 

IF( DST.LE.O. .OR.DSR.LE.O. )  GO  TO  14 

DA  T  =  DL  T +DST 

dar«dlr+dsr 

CALL  SORB  I  EC  1 t HV.EFRTH.DAT .THET. RE  > 

REO»RE(l)  S  RFW*R£  <  2  I 

CALL  SORB ( EC2 iHV  *EFR TH  «OAR  »THER  .RE I 
REO*REO+RE  I  1 >  $  REW«REW+RE ( 2 > 

GO  To  1? 

END 


SORB 

Subroutine  SORB  computes  the  effective  ray  lengths  for  oxygen  and 

water  vapor,  r  that  are  used  in  the  calculation  of  atmospheric 

r  eo,w 

absorption  (sec.  A. 4. 5). 


SUBROUTINE  SORrihi ,H2 ,A .Ro.CA .RE  I 
C  ROUTINE  FOR  MODEL  AUG  73 

DIMENSION  RE ( 2 » . TF(2 1 .H(2  I 
TFT  1  )  =  -3 .  ?  *3  $  TE  (  21*1*36 

PI2=1. 570796377  S  P I - 3 . 1 41 592654 

BA  =  CA 

IFIHl.GT.H2l  GO  TO  10 
H5  =  H 1  i  HL-H2 

11  AT=PI?+RA 

ANUM«HS*S INF (ATI 

PO  22  .7 

HU'  I -Trite  l+A 

IF  IHL  .LE.HU  )  )  GO  TO  R3 

IFfHIFI.l T.HS)  GO  TO  fil 

AS*  AS  I NF  <  ANUM/HI F ) I  *  AE«P I -f  AT  +  AS I 

IT  ( RA , G  T ,  1  ,  S6  7  0  I  GO  TO  74 
I F ( Af . Eo. 0 . I  GO  TO  24 

RE  (K)«(HS»SINF(AEn/SlNFCASl  $  GO  TO  22 
74  REUI-HU  l-HS 
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22  CONTINUE 
RETURN 

10  HS»H2  S  HL=H1  S  BA"- < CA+< RO/ A ! J  $  GO  TO  11 
81  IF ( AT .GT. P I  2  >  GO  TO  85 
HC=HS*SINF( AT ) 

IF(HIK).LF.HC)  GO  TO  85 
RF(K)-2.*H(IO*SINF(ACOSF<HC/H(<n  ) 

GO  TO  22 
83  RE<K>*RO 
GO  TO  22 

85  REltO-O.  *  GO  TO  22 
END 


TABLE 

Function  TABLE  is  used  to  set  up  and  obtain  values  from  a  table 
of  grazing  angle,  ip;  corresponding  values  of  path  length  difference, 
Ar;  and  great  circle  path  distance,  d.  It  is  used  in  calculations  for 
the  1 ine-of-sight  region  (fig.  19). 


FUNCTION  TABLEIXINTI 
C  ROUTINE  FOR  MODEL  AUG  73 

C  ENTER  TInTER  WITH  DELTA  R  AND  GET  S! 

C  ENTER  DINTFR  WITH  DELTA  R  AND  GET  DISTANCE 

C  ENTER  SINTER  WITH  DISTANCE  AND  GET  SI 

COMMON/ EG AP/ I P  *LN *  I DT  »!XT 

COMMON/SPLlT/Ll.L2.N.X< 1A0).Y(140),D6( 140) ,XS < 55 ) . XD ( 55 > .XRI55) .YS 
X<55) .YD<55l «YR(55) .L3.ZSI25) »ZD( 25> .ZR<25> 

DIMENSION  AS  I  HO  I  *  AD<  110  >  *  AR !  1 10  > 

C  - SET  UP  ARRAY - 

DUM»0. 

CALL  TRMESHUS.XD.XR.L1  .YS . YD. YR .L 2  .  AS .  AD . AR.L5 > 

CALL  TRMeSH(AS.AD.AR.L5.ZS.ZD.ZR.L3.Y.X,D6.NI 
M«N 

DO  21  I • 1 »N 
SD»Y(  I  1*57.29577951 
?1  CONTINUE 

TABLF-DUM  S  RETURN 

101  FORMAT  I 31H  OUT  OF  RANGE  FOR  INTERPOLATION! 

ENTRY  TInTER 

IF ( X INT-X 1 1 »  >7.1.2 

1  Y  INT -Y ( 1 > 

TARLE*YINT  $  RETURN 

2  K-l 

3  IF(X!NT-X(K  +  1 »>6. 4.5 

4  YINT=Y(K*11 

TABLE«YINT  S  RETURN. 

5  K«tt+1 

IF  I M-x  )  fl  .  8.  , 

6  Y  INT" ! I XINT-XIKI )*(Y(K+1)-YIK| I / ( X ( K+l |-X ( Kl ) )+YIK) 

TABLE* YINT  %  RETURN  ’ 
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7  PRINT  101 

TA^LEcYl 1 )  *  RETURN 

8  PRINT  101 

TARLfoY(M)  *  RETURN 

ENTRY  dinter 

IF  t  X I NT-X ( 1 t  >17*11*12 

11  TABLF*06  (  1  I  *  RETURN 

12  K  *  1 

13  IF ( X INT-X ( K+l H 16* 1A ♦ 1 5 

1 4  TABLE® P6IK+1 I  *  RETURN 

15  K®K+1 

16  TABLE®  (  f  X  IN  T-X  ( K  >  »  *  (  06  (  K  +  l  I  ~06  (  K »  1  /  CXHC+1  l-XI  K  )  )  U06IX) 
RE  TURN 

17  PRINT  101 

TABLE-  Pill  1  I  *  RETURN 

18  PRINT  101 

TABLE  =D6(M»  J  RETURN 

ENTRY  SINTER 
I F ( X  I  NT-D6 I  1)132*31,37 
3l  T  ARLF - Y  < 1 1  *  RETURN 

72  K  =  1 

33  IF(XINT-D6(K+1 ) )35»34*36 

34  TARLE=Y(K+1 )  *  RETURN 

35  K=K+1 

IFIM-K ) 38.38*33  ,  ... 

76  TABLE® ( (XINT-D6IK) ) * ( YIK+l ) -Y ( X ) ) / (06 (K  +  l I -06  IK > ) I+YIIO 

RETURN 

37  PRINT  101 

TABLE'YU)  *  RETURN 

38  PRINT  101 

TABLE  »Y(M)  t  RETURN 
END 


TERP 


Function  TERP  is  used  in  subroutine  HCHNOT  to  obtain  values  for 
parameters  used  in  the  calculation  of  HQ  for  (169). 


FUNCTION  TFRPIARGI 
C  ROUTINE  FOR  MODEL  AUG  73 

C  ROUTINE  TO  FIND  HIRl I  and  HIR2I 

DIMENSION  TABRI 144  I  *  TAMPI 144  I 

DATA!  T APR® 100.0,R5. 0*90. 0,85.0. SO. 0,75.0,  ■’0.0 *65. 0*60. 0,55, 0,50.0* 
X4  8. 0,45. f>*4 3. 0.40. 0*38.  .35 . 0 , 33 .0 . 30 *0 ,28 .0 . 26.0 , 24 . 0 .22.0  *  20. 0 , 1 
XR. 0*18, 0*17. 0,16, 0*15. 0,14. 0*13. 0.12. 0,11. 0*10,0.8.6, 9, 0*8. 5, 8. 0,7 
X  *  5  /  *8  •  4  •  6  » 4  •  4  ,  4  •  2  i3«6»3«4y3i2  »3«0»2t8 

Xf?*6t?#4*?*2#2*0*l*9*l#8*l*7t]*6*l#5>3*4»1*3tl«2*l*l»l  0*#95f*9»*S 

X5»»8i*7^*»7*96^»#6»*55*#<j»#4,39*/'4t*’58»*36f*3A9*379*3f92ni«26*#2^»*2 

X  2  *  •  2  «•  J  8  *  #16#  •  1 4  9  v  12  *  •  J  *  •0<')  *  •  U  *  •  0  ?  9  •  0  6  5  9  •  0  6  »  <•()!?&•  »0t>9«04^9904t«03 
XH  t  .  U  3  '  t*01  4  *  #01?,  »()  J  ,  ,02«t  .  926  9 ,02  A  9  *022*  .02  9  .Oi0»  *016  1.OU1  *012  •• 
X  0  1  »  .0n9t.C08  »  #007  .  #0U6f^  ,  ,006  ,  .  0055  9  •  00  ?  9 . 004  5  t  #004  ,  .  0038  9 . 00  36  9  •  00 
X  34  .  .09  32*  .0^3  9 .00  2  8  .  .'»02C*t  •  f  J  0  ?  4  9 ,0022  •  •  0U2  •  •  00  l  tf  •  •  00  1 6  •  »0U  ] 4 ,90012 
X  *,001  > 
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> 


DATA!  T A HR =.999805  .  .'>99  78  .  .9997 6  6  .  ,  <5 R9 7 3  .  ,  90  9 7  t  .  9996 5 5  .  .999605  .  .999 

X  54  , *  999 A  5 *.99936*. ^9 9 22  * .99918 , , 999o3  > . 9989  3 ..99879. .99865, .9984,. 
X9982  ..99  78..  99  75..  99  71  .  .9966,  .996*.  995?  ,,9948.  .999  ,.9933  t.  9926..  99 

XI  7  ,  .'•>90  3.  .9  89  ,  .98  7..  986  5  ,  .9R18  .  .  9  8  ,  .  9  78  ,  .  9  75  5  ,  .  9  72  6  .  .  9695  ,  ,9655.  .9 
X61,. 966, .94 8, .96  1, .9 38. .932, .926, .923. .918, .91, .902,. 895, .887. .876 
X,. 864, .88. .835. .915, .795. .78,. 77, .755, .74, .725, .70 7, .683. .67, .645, 
X. 62 3  , .61, .595, .58, .56, .54, .525, .51, .486, .46 6, .44 6, .41, .385, .375, .3 
X6..  35. .33 5, .3 2. .295, .28 , .264  ,.25, .232, .212, .193, .173. .152, .13, .129 
X. .1 C 8, . 094, . 089, .083, .076, .07, .063, .057  ,.054,. 052**049, *046, .044,. 
X0  4  0  5  , .  038,.  03  5  ,  .0325,.  03.  .02  7,  .024  ,  .021,.  0182.  j  0152.  ,0139*.  0122*.  0 
X 108 , .01 . .Of)  9? , .0085 , .00 78 , .007 ,. 0062 , .0059 . .0056 , .0053 . .005 , .00465 
X . .0044 , .00405 , .00375 , .00345, .00315 , .0028, ,0025 , . 0022 , . 00 160 , .00158 
X  ) 

I F ( ARG-  .001 )  15.15.  16 
16  T  ERP  =  ,00  1  5  8 
RETURN 

16  IFIARG-100. >10.11,11 

11  TERP=. 999805 
RETURN 

10  DO  12  KH  = 1 , 144 

I F ( ARG- T  ABR  (  KHt 112.13,14 

12  CONTI NUF 
14  K  L-K.H-  1 

Tt"RP  =  (  (  ARG-TABR(KH)  )/<  TABR(XL  l-TABR(KH)  1  !•(  tahruu-tahrikhi  i+tahr 
X(KH) 

return 

13  TERP»T AHR I XH I 
RETURN 

END 


TRMESH 


Subroutine  TRMESH  sorts 
in  an  ascending  order.  It  is 
1 ine-of-sight  region  (fig.  19) 


and  merges  two  tables  of  three  element  arrays 
used  in  calculations  associated  with  the 


SU8R0UT INF  TRMESH! A.B,C.NA,R,S»T »NR,X,Y»Z»N) 

C  ROUT  INF  FOR  MODFL  AUG  73 

DIMENSION  All>*B<ll*C<ll*R(l)»SIl>.T(l»*X(l),m>,Z<l> 
t»J*l  $  N  *0 


4 

N-N  +  l 

IFIAI  I  )-R< Jl 19.7*8 

9 

X  (  N  1 »  A  (  I  )  5  YINI-Sm 

IF  d.GT.NA>5»4 

S 

Z  <  N  •  ■  C  I II 

*  i-i+i 

8 

X  (  N  1  =R  (  J  1  *  Y(N)-SU) 

IFU.GT.NRi  3*4 

* 

Z(N>*TU! 

S  J.J+1 

7 

X  (  N  )  *  A  1  I  1  $  YINI-Bd) 

IFd.GT.NAi  10*11 

s 

Z ( N 1 "Cl  I  I 

*  I-I+l 

10 

IF ( J.GT.NR)  12*5 

11 

IF  I J.GT .NR ) 3 • 4 

5 

LfJ 

DO  16  LE-I.I  *NR 

i 

.3 

•v 

i 

N  =  N  +  1  S  X(N!-R(LE»  * 

Y  Cl 

y)-S(LE)  * 

Z ( N ) a  T ( LF  > 

16 

CONTINUE 

i 

C.0  TO  12 
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3  L  l  ■  I 

00  18  LE-LI »NA 

N  =N+ 1  $  X<N>-AUE)  *  Y(Nl-8(UE>  *  £<  N  >  »C  U.E ) 

18  CONTINUE 
12  RETURN 
END 


TSMESH 


Subroutine  TSMESH  sorts  and  merges  two  tables  of  single  element 
arrays  in  an  ascending  order.  It  is  used  in  calculations  associated  with 
the  line-of-sight  region  (fig.  19). 


SUBROUT INE  TSMESHt A.NA.R.NR.X.N) 

C  ROUTINE  FOR  MODEL  AUG  73 

DIMENSION  A!l>*Rtl)*Xm 
I-J-l  5  N-0 

A  NCN* 1 

IF(A(!)-R('J>  19.7.8 
9  X(NI=A( I )  t  t-I+1 

IF  (I.GT.NA>5»4 
8  X<N>=R(J»  S  J-J+l 

IFIJ.GT.NRl3. A 

7  X ( N I = A ( I  I  $  I-I  +  l  %  J-J+l 

IFd.GT.NAl  10.11 

10  IFtJ.GT.NRl  12.5 

11  IFIJ.GT.NRI3. 4 
5  L  I  -  J 

00  16  LE-LI »NR 
N-N+l  S  XtNl-RtLEl 

16  CONTINUE 
GO  TO  12 
3  LI-I 

DO  18  LE-LI* NA 

N-N  +  l  «  XtN)-A(LE) 

18  CONTINUE 

12  RETURN 
END 


vzo 

Subroutine  VZO  is  used  to  calculate  long-term  (hourly  median) 
variability  (sec.  A. 5).  . 
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SUBROUTINE7  VZD(DE.Gl,r,9,Al 
C  ROUTINE  FOR  MODEL  AU6  73 

OIMENS ION  DOS  * 

DIMENSION  Cl : 3  >  »C2 t 3» .C3( 3*  tCNIO  >  tCN2I3>  »CN3(3) »FMI3l »FIN(3I ,213) 
1 .Y<  35  I *A<  SO  * 


C  MIXED--ALL  TEAR  TIME  BLOCK  YS  AND  CONTINENTAL  V(50) 


12 

13 


17 


DATAiCl  =  2,9  3F-4»5,2r>E-4*1.59E-5* 
DATA (C2 *3.  ?8f.~0 , 1  ,  5 7f-6.1 .56E-I1 ) 
DATA  (C3*l  ,0  2t'  -  7  ,4.  ?,;e-  7 .2.77E-8  I 


DATA  I  CN  l  *2.00 .1  .97,2,32  > 
data  <CN?*2,  8  8  .2 .3  I  ,  4.0  6  .• 

DA TAICN3* 3.15,2.90*3,28) 

DAT4(FIN*3.?,8.4.0.0* 

DATA(Fw=0,?. 10. 0.3.9) 

DO  13  1-1.3 

X  =  F INI  I  *  +  < I FM( I  * -FIN! I > **EXPF( -C2 ( I **DE**CN? !  I  i )  I 
Z  C  J  *  *  I i <C1 (  1 **DF#»CN1 ( I **-X  > *EXPF< -C3 < I > »DE* *CN3 < I  I  *  > »X 

Y<  13  >  I  1  )  »r,o 
Y(?3*s2(?)»L'l 
Y( 1  1  =  3.3279* <1  1  1 

Y ( 2 )*3»7052*YI 13* 

Yf  3  )*  ? .03S7*Y I  13  * 

Y ( 4 )  =  2 . 922S*Y ( 1 3  * 


Y ( A  !=?.7622*Y(13) 
Y(  A  1*2  .  S67S»Y ( 1 3  I 
Y(7)=2.411?»Y<13) 
Ylfi  )*?,?4Sfl#Y{  13  I 

Y  (  4  )-?, o098» Y ( 1 3  > 
Y( 10**1 . fi 1 50*YI 13) 

Y  l  1  1  *=1 ,60>5*Y( 131 
Y<  12  1«1.2835*V( 13) 

Y  (  14**0, 8087«Y( 1 3  I 
Y(1S)*0.6S67*Y(13I 
Y( 16**0. 4092*  Y ( 131 
Y(17)=0.1976»Y(13) 

Y  (  18  *  *0,0000 

Y( 19  *  *0. 1976»Y( 23) 
Y( 20  *  »0,4  042*Y ( 2 3 | 
Y ( 2  1  **o.6S67»Y<73) 
Y(  22  *  *0.808  7»YI 23  I 
Y(  24  )  a  1 . 3?6C'»Y  (  73  | 
Y(2S**1.7166*Y<?3) 
Y(  26  *  =1  ,'9S07#Y  (  23  ) 
Y(27*-2.2000«Y(23) 
Y(78**2.S2BO*Y(23l 
Y(29»»2,7310*Y(23) 
Y(30**2.9180*Y(23I 
Y(  31  1*3,  1680*Y(23* 
Y(32»*3.3320*Y(23) 
Y(33»-3.*860#Y<23) 
Y(34>*3.6900»Y<23) 
Y(3S**3«8150,Y(23) 
DO  18  1*1  ,35 


K  N*  36-  I 

B I  I  I *Y I T I *Z I  3  I 
A (KN  *  *  B(  1  * 

18  CONTINUE 
RETURN 
END 
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YIKK 

Subroutine  YIKK  is  used  to  determine  short-term  (within-the-hour) 
for  a  specified  value  for  the  parameter  K  of  (6).  It  uses  the  VF  tables 
which  are  tabulated  in  this  section  under  TABLES  to  obtain  the  Nakagami- 
Rice  distribution  [40,  fig.  VI]  that  corresponds  to  K.  Actually,  the 
K  used  in  YIKK  has  a  sign  that  is  the  opposite  of  that  used  in  (6),  and 
Rice  et  al .  [40,  fig.  VI],  but  is  the  same  as  that  of  [38,  table  1]  from 
which  the  data  were  taken. 


SUBROUTINE  yikkit.pv.vi 
C  ROUT  INF  FOR  MODFL  AUG  73 

C  THIS  NAKAGAMA-R ICE  DIST.  HAS  TABLES  FROM  NORTON  55  IRE  PAGE  1360 

C  THE  TABLES  ARE  THE  NEGATIVE  OF  THE  KK  IRE  TABLES  BUT  ARE  CHANGED 

C  BEFORE  GOING  OUT  OF  THE  ROUTINE 

C  K  HAS  THE  OPPOSITE  SIGN  OF  101  BUT  THE  SAME  AS  THE  IRE  PAPER 

DIMENSION  P I  35  I .PV I  50 ) »  V ( 50  I 
COMMON/VV/VF (36*17) 

DATA  ( <P< I > . 1-1*35 )-. 00001 ,.00002,. 00005.. 0001,. 0002..00U 5,. 001,. 
X00  2..005..01  ..02,. 0  5,, 10.. 15.. 20,. 30.. 40,. 50. .60 , . 70 , .80 .. 85 , . 90, . 
X95  ..98.. 99*.  995.. 998*. 999,. 9995,, 9998,. 9999,. 99995,. 99990,. 99999) 
AVEFI YN.XN.YNl.XNl)  -  (YNl*(T  -  XN)  -  YN* I T  -  XN1)I/(XN1  -  XN) 

DC  1  I  «  1,14 

IFIT  -  VF(l.I))  3,2'! 

1  CONTINUE 
I  '14 

2  on  *  J  <  I  .  j5 

vi j)  .  vFiJ+i.n 

4  PV(J>  -  P(jl 
GO  TO  6  • 

3  IF< I.EQ.l >  GO  TO  2 
DO  5  J  -  1.35 

VIJI  -  AVEF(VFIJ+1,I-1).VFI1,I-1),VF(J+1,I),VF(1,I)) 

5  PVIJ)  -  P(J) 

6  DO  7  J-1.35 

7  VIJI— VIJ) 

RETURN 

END 
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B.  4.2.  TABLES 


The  programs  all  require  that  a  sei  of  data  cards  be  read  before 
any  input  parameters  are  read  (figs.  25v  26,  27).  Tabulations  of 
these  tables  are  provided  in  Lee  order  required  by  READ  statements  of  the 
programs.  Each  table  is  identified  The  FORTRAN  variables  used  in  the 
READ  statements  associated  with  it. 


TABLE  TAV/TAH1 


This  table  is  used  by  subroutine  HCHNOT. 


40000 

000 

000 

000 

000 

030 

200 

53037000 

OOO 

35000 

oco 

000 

000 

oio 

0  7  5 

250 

61534000 

ooo 

3  3000 

000 

000 

OOO 

015 

080 

2  70 

66070000 

ooo 

2  7000 

000 

Ono 

000 

030 

1  1  5 

16  5 

8  00 

2  6  oOO 

ooo 

23000 

ooo 

noO 

00  0 

0  60 

14 

44  0 

93020000 

000 

16000 

000 

010 

0  30 

.18  5 

2  10 

o  70 

1 240 1 6000 

010 

14000 

015 

020 

045 

110 

250 

7  75 

14701 3000 

020 

12000 

023 

040 

072 

130 

290 

90  5 

16101  1000 

025 

10000 

0  35 

060 

100 

1  70 

36  5 

1  090 

1  8‘  0 

9600 

07.  U 

9000 

0  50 

0  7  3 

12  3 

200 

425 

120  6 

2000 

8  600 

0  65 

8000 

060 

0  90 

155 

245 

500 

136(i 

2  1  75 

7  *  00 

0  70 

7000 

0  75 

120 

200 

JO  5 

6  00 

1  500 

2  390 

6800 

080 

6600 

08  5 

130 

223 

340 

650 

1  6  80 

2480 

6  4  0  0 

090 

6200 

100 

149 

245 

375 

710 

1660 

2  680 

6000 

106 

5800 

110 

170 

270 

420 

780 

1740 

2  690 

6600 

120 

5400 

125 

185 

300 

465 

850 

18  30 

2820 

5200 

1  30 

5000 

140 

220 

335 

515 

9  30 

194  0 

2960 

4800 

1  50 

4600 

160 

240 

3  75 

6  80 

1010 

2  0  6  0 

3  100 

4400 

1  70 

4200 

1  75 

275 

425 

6  6  5 

1160 

2190 

3  2  70 

400  0 

190 

3800 

2  10 

315 

484 

7  60 

1280 

2  3  60 

34  5  0 

37,00 

221 

3400 

240 

360 

560 

860 

1430 

26  16 

37.  ()0 

3  2  00 

27.0 

3000 

28U 

415 

660 

1000 

1600 

2  720 

3  8  10 

2  '00 

295 

2«00 

3  10 

440 

709 

1070 

1  700 

2  640 

3  9  5  () 

2  mo 

325 

2600 

340 

478 

770 

1  1  65 

1  800 

2  6  60 

7,  0  4  0 

2  4  00 

7  60 

2400 

3  70 

520 

8  3  0 

126  ) 

1  925 

3  1  Of) 

4  2  00 

2  7  00 

790 

2200 

415 

5  70 

915 

13  60 

20  60 

3  21,0 

4  )7o 

2  1  0  0 

4  36 

2000 

460 

6  30 

100  6 

1465 

2200 

3  4  2  0 

4  6  20 

1  460 

4  76 

1900 

490 

660 

l  U  5  5 

15  30 

22  75 

3510 

4620 

I860 

500 

1800 

5  2  0 

700 

1120 

1600 

2  3  60 

36  10 

4  710 

I  760 

635 

1  700 

550 

745 

1180 

16  70 

2450 

372U 

4  8  00 

1  6  6  U 

5  70 

1600 

5  90 

7  90 

1250 

1750 

2550 

3810 

49  10 

1  550 

610 

15f,0 

64  0 

84  5 

1  320 

1840 

26  6  0 

3  9>2  0 

5010 

1460 

660 

uou 

OOO 

OOO 

OOU 

000 

013 

ooo 

OOO 

020 

ooo 

OOO 

04  0 

ooo 

010 

060 

015 

078 

100 

025 

U6U 

120 

050 

080 

150 

0  7  0 

1  17 

180 

080 

J  30 

220 

111) 

1  75 

?  la 

126 

2  10 

320 

140 

2  30 

35  5 

lbC 

26  5 

400 

175 

285 

44  0 

200 

320 

4  9  6 

225 

360 

650 

25  6 

395 

7,20 

2  90 

4  -.6 

70  o 

7  7() 

6  20 

800 

360 

610 

42  6 

426 

i  HO 

1  U  4  0 

4b0 

74  0 

1115 

6' JO 

800 

1200 

64  6 

8  73 

1296 

7.00 

960 

14U() 

64  6 

loiu 

1  60Q 

6  78 

108  0 

1570 

7  2  w 

1  *  j  0 

1630 

7  70 

1215 

1  700 

820 

1280 

179u 

870 

13  56 

1880 

Of,1}  225  575 

0  78  260  64  0 

100  310  720 

125  400  860 

160  520  1055 

230  720  1350 

2  7o  840  1510 
325  1000  1720 
390  1150  1930 
455  1270  2080 
545  1425  2280 
630  1540  2430 
680  1615  2530 
740  1700  2640 
810  1790  2760 
890  1880  2890 
980  2000  3030 
1080  212U  3180 
1210  2260  3350 
1350  2430  3500 
1515  2610  3710 
1650  2  7  7 5  3890 
1750  29U0  4020 
1  860  30  30  4  1 30 
2010  3175  4300 
2120  3340  4450 
2230  3470  4480 
2320  3570  4680 
2400  3680  4750 
2500  3780  4860 
2600  3860  4990 
2710  3980  5090 
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1400 

680 

900 

1390 

1940 

2  760 

4020 

5130 

1350 

710 

930 

1430 

1980 

2810 

4100 

5210 

1300 

740 

963 

1480 

2040 

2890 

4160 

5280 

1250 

775 

1005 

1525 

2100 

2950 

4230 

5340 

1200 

800 

1045 

1580 

2160 

3020 

4290 

5400 

1150 

830 

1085 

1628 

2230 

3100 

4370 

5490 

1100 

870 

1130 

1695 

2300 

3170 

4420 

5570 

1050 

910 

1180 

1751 

2370 

3240 

4500 

5630 

1000 

950 

1230 

1620 

2440 

3340 

4610 

5720 

980 

975 

1260 

1840 

2480 

3365 

4630 

5780 

960 

995 

1285 

1870 

2310 

3400 

4670 

5800 

940 

1010 

1310 

1900 

2540 

3440 

4700 

5830 

920 

1035 

13  30 

1930 

2580 

3460 

4740 

5880 

900 

1060 

1360 

1960 

2610 

3490 

4790 

5920 

880 

1080 

1380 

1995 

2650 

3510 

4820 

5960 

860 

1 100 

1410 

2023 

2680 

3560 

4890 

6000 

840 

1130 

14  30 

2060 

2775 

3590 

4920 

6030 

820 

1150 

146  5 

2090 

2760 

3630 

4950 

6090 

800 

1180 

1490 

2125 

2800 

3680 

5000 

6110 

780 

1210 

1523 

2165 

2850 

3710 

5030 

6170 

760 

1240 

1555 

2205 

2890 

3780 

5090 

6210 

740 

1265 

1585 

2250 

2935 

3800 

5130 

6260 

720 

1295 

1622 

22yo 

2980 

3850 

5190 

6300 

700 

1320 

1655 

2335 

3020 

3900 

5210 

6330 

680 

1350 

1690 

2375 

3070 

3960 

5280 

6400 

660 

13  80 

1730 

2430 

3120 

4000 

5310 

6460 

640 

1420 

1770 

2475 

3180 

4050 

5380 

6500 

620 

1450 

1620 

2523 

3240 

4100 

5430 

6560 

600 

1490 

1860 

2570 

3290 

4150 

5490 

6610 

590 

1510 

1875 

2595 

3320 

4180 

5500 

6630 

500 

1525 

1900 

2625 

3350 

4200 

5530 

6680 

570 

1550 

1924 

2650 

3380 

4230 

5570 

6710 

560 

1570 

1950 

2676 

3410 

4260 

5600 

6740 

550 

1590 

1975 

2705 

3440 

4300 

5630 

6780 

540 

1610 

1997 

2740 

3470 

4330 

5680 

6800 

530 

1630 

2025 

2770 

3490 

4370 

5700 

6830 

520 

1660 

2050 

2795 

3500 

4400 

5720 

6680 

510 

1675 

2072 

2825 

3520 

4420 

5750 

6900 

500 

1700 

2110 

2855 

3540 

4480 

5790 

6930 

490 

1730 

2130 

2890 

3590 

4500 

5810 

6980 

48o 

1760 

2167 

2925 

3610 

4520 

5870 

7000 

470 

1780 

2195 

2960 

3650 

4580 

5900 

7000 

460 

1610 

2220 

2990 

3690 

4610 

5930 

7000 

450 

1840 

2267 

3030 

3730 

4630 

5990 

7000 

440 

1870 

2290 

3065 

3780 

468 

60  1 U 

7000 

430 

1900 

2330 

3110 

3800 

4710 

6070 

7000 

420 

1930 

2  360 

3140 

3850 

4770 

6090 

7000 

410 

1950 

2390 

3177 

3800 

4800 

6120 

7000 

400 

1990 

2435 

3225 

39  30 

4830 

6170 

7000 

390 

2025 

2470 

3270 

3970 

4890 

6210 

7000 

380 

2060 

2505 

3310 

4010 

4920 

6270 

7000 

370 

2090 

2547 

3360 

40  Bq 

4980 

6320 

7000 

360 

2140 

2590 

3400 

4100 

5020 

6370 

7000 

350 

2165 

2628 

34  4  6 

4150 

5080 

6400 

7000 

340 

2210 

2670 

3500 

4200 

5120 

6460 

7000 

330 

2250 

2717 

3550 

4250 

5190 

6500 

7000 

320 

2300 

2760 

3600 

4300 

5220 

6560 

7000 

310 

2350 

2810 

3650 

4390 

5290 

6610 

7030 

300 

2390 

2  8  70 

3700 

4450 

5320 

6680 

7000 

290 

2440 

2920 

3750 

4490 

5390 

6710 

7000 

280 

2490 

2  9  79 

3000 

4530 

5460 

6  7  90 

7000 

270 

2  550 

3030 

3880 

4600 

5510 

6850 

7000 

260 

2600 

3090 

3920 

4650 

5590 

6920 

7000 

250 

2660 

3155 

4000 

472o 

5630 

7000 

7000 

240 

2720 

3220 

4050 

4800 

5710 

7000 

7000 

230 

2780 

3290 

4120 

4880 

5800 

7000 

7000 

220 

2850 

3365 

4400 

4950 

5H80 

7000 

7000 

210 

2940 

3390 

4280 

5020 

5950 

7000 

7000 

200 

3010 

3480 

4350 

5100 

6030 

7000 

7000 

190 

3100 

3560 

4440 

5200 

6120 

7000 

7000 

180 

3175 

3630 

4320 

5300 

6210 

7000 

7000 

170 

3275 

3  730 

4620 

5400 

6310 

7000 

7000 

160 

3370 

3  8  30 

4  720 

5500 

6430 

7000 

7000 

150 

3470 

3  9  30 

4820 

5600 

6520 

7000 

7000 

140 

3520 

40  50 

4950 

5700 

6650 

7000 

7000 

130 

3640 

4190 

.5080 

5850 

6800 

7000 

7000 

120 

3780 

4  300 

5200 

5990 

690 

7000 

7000 

no 

3920 

4470 

■5  3  50 

6130 

7000 

7000 

7000 

100 

4080 

4600 

5500 

6300 

7000 

7000 

7  000 

095 

4150 

4700 

5600 

6380 

7000 

7000 

rooo 

090 

4260 

4800 

5700 

6480 

700 

7000 

7000 

085 

4330 

4890 

5790 

6580 

7000 

7000 

7000 

080 

4470 

5000 

5890 

6680 

7000 

7000 

7000 

075 

4  5  60 

5110 

6000 

6790 

7000 

7000 

7000 

070 

4680 

5220 

6110 

6900 

7000 

7000 

7000 

068 

4720 

5  290 

6190 

7000 

7000 

7000 

7000 

066 

4790 

5  3  30 

6210 

7000 

7000 

7000 

7000 

064 

4830 

5380 

6300 

7000 

7000 

7000 

7000 

062 

4880 

54  40 

6340 

7000 

700 

7000 

7000 

060 

4930 

5500 

6400 

7000 

7000 

7000 

7000 

058 

4990 

5550 

6430 

7000 

7000 

7000 

7000 

056 

5050 

5620 

6500 

7000 

7000 

7000 

7000 

054 

5100 

5690 

6580 

7000 

700 

7000 

7000 

052 

5180 

5740 

6630 

7000 

7000 

7000 

7000 

050 

5230 

5800 

6700 

7000 

7000 

7000 

7000 

048 

5300 

5880 

6770 

7000 

7000 

7000 

7000 

046 

5380 

5980 

6840 

7000 

700 

7000 

7000 

044 

5440 

6040 

6920 

7000 

7000 

7000 

7000 

042 

5530 

6130 

7000 

7000 

7000 

7000 

7000 

040 

5620 

6210 

7000 

7000 

7000 

7000 

7000 

038 

5700 

6300 

7000 

7000 

700 

7000 

7000 

036 

5800 

6400 

7000 

7000 

7000 

7000 

7000 

034 

5900 

6500 

7000 

7000 

7000 

7000 

7000 

032 

6000 

6600 

7000 

7000 

7000 

7000 

7000 

030 

6100 

6  700 

7000 

7000 

700 

7000 

7000 

028 

6230 

6830 

7000 

7000 

7000 

7000 

7000 

026 

6370 

6990 

7000 

7000 

7000 

7000 

7000 

024 

6500 

7000 

7000 

7000 

7000 

7000 

7000 

022 

6680 

7000 

7000 

7000 

700 

7000 

7000 

020 

6840 

7000 

7000 

7000 

7000 

7000 

7000 

0  J  8 

7000 

7000 

7000 

7000 

7000 

7000 

7000 
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This  table  is  used 


10  1721  1723  1724  1723 
15  1783  1787  1790  1793 
20  1830  1834  *838  1842 
30  1897  1904  1914  1922 
40  1945  1959  1969  1980 
50  1984  2002  2015  2027 
60  2015  2041  2057  2068 
70  2043  2075  2091  2107 
8C  2067  2100  2121  2139 
100  2107  2150  2180  2204 
150  2177  2244  2295  2334 
200  2231  2317  2388  2442 
250  2273  2382  2471  2546 
300  2308  2440  2544  2635 
350  2338  2494  2615  2721 
400  2366  2544  2685  2798 
500  2411  2637  2822  2942 
600  2449  2718  2954  3086 
800  2510  2883  3214  3374 
100C  2559  3038  3474  3662 
10  1642  1044  10  4  6  1647 
15  1705  1709  1712  1716 
20  1752  1 757  1763  1 770 
30  1820  1829  1846  1862 

40  1863  1886  1919  1941 

50  1908  1937  1981  2005 

60  1939  1982  2030  2052 

70  1967  2023  2072  2095 

80  1991  2059  2109  2133 

100  2031  2107  2172  2190 

150  2105  2216  2289  2307 

200  2158  2295  2386  2437 

250  2201  2366  2477  2547 

300  2244  2425  2560  2645 

350  2278  2480  2623  2734 

400  231  1  2532  2  700  2808 

500  2365  2627  2012  2947 
600  2412  2718  2908  3086 
800  2488  2880  3100  3364 
1000  2550  3016  3292  3632 


TABLE  TALD/TAFL 


[yj  subroutine  FDTETA. 


1726  1727  1727  1685  1686 
1797  1  799  1  799  1  7-.  7  1  76o 
1847  1850  1851  1794  1798 
1930  1933  1934  1861  1869 
1990  1996  1996  1998  1931 
2037  2043  2046  1949  1979 
20H4  2093  2  -96  1980  2019 
2126  2135  2130  ?'V.'0  2064 
2162  21 72  21 76  2031  2089 
2234  2247  2252  2069  2139 
2375  2389  2403  2143  2240 
2503  2526  2544  2198  2317 
2631  2656  2677  2241  2382 
2743  2776  2802  2278  2442 
2842  2885  2915  2309  2496 
2932  2982  3017  2337  2544 
3112  3176  3254  2386  2635 
3292  3  3  7U  3480  2428  2719 
3652  3758  3932  2498  2881 
4012  4146  4384  2666  304.3 
1648  1649  1649  1580  1582 
1  72  1  1  72  7  1  7?  7  1644  1647 
1  780  1  7116  1  788  1691  1697 
1879  1886  1891  1769  1777 
1962  1973  1975  1808  1837 
2028  2035  2040  1848  1886 
2077  2086  2088  1879  1931 
2120  2129  2132  1907  197? 
2159  2168  2173  1931  2011 
2228  2240  2246  1972  2081 
2367  2382  2395  2048  2206 
2495  2626  2538  2103  2302 
262?  2663  2696  2149  2376 
2738  2786  2803  2187  2435 
2840  2902  2920  2221  2490 
2930  3005  3028  2260  2540 
3110  3211  3244  2300  2627 
3290  3417  3460  2350  2710 
3650  3829  309?  2414  2850 
40  10  424  1  4324  2506  2968 


1688  1689  16!>o  1691  1691 
1753  1768  1762  1764  1764 
It  1608  1817  1821  1823 
183?  1895  1904  1912  1913 
1966  1966  1976  1984  1984 
2009  ?'122  20  33  2039  2042 
2065  2062  2078  2086  2088 
2067  2103  2122  2131  2134 
2116  2137  2168  2168  2173 
2175  2205  22? 9  2241  2250 
2294  2334  2376  2395  2402 
2391  2  h4  3  2507  2528  2545 
2472  2541  2630  2665  2604 
2549  2631  2745  2789  2811 
2618  2723  2848  2900  2929 
2685  2809  2943  2999  3034 
2818  2953  3133  3197  3244 
2939  3097  3323  3395  3454 
3181  3385  3703  3791  3874 
3423  3673  4003  4187  4294 
1584  1585  1508  1589  1590 
1666  1662  1669  1680  1680 
1711  1719  1730  1743  1749 
1797  1814  1 U  3  2  1  863  1869 
187?  1897  1917  1938  1943 
1933  1966  1990  2006  2013 
1988  2023  2048  2063  2070 
2040  2075  2096  2116  2122 
2080  2118  2139  2160  2166 
2154  2197  2217  2235  2240 
2280  2327  2359  2380  239 2 
2380  2431  2493  2520  2530 
2475  2529  2618  2648  2665 
2556  2634  2735  2775  2785 
2627  2720  2840  2890  2900 
2690  2793  2952  2983  3006 
280 }  2935  3097  3164  3210 
2891  3077  324?  3345  3430 
3067  3361  353?  3707  3854 
1243  3645  3822  4069  4278 
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TABLE  VF 


This  table  is  used  by  subroutines  FDASP  and  YIKK. 


-400000 

-02581 

-02487  -02357 

-02255 

-02148 

-01998 

-01878 

-01750 

-01568 

-01417 

-01252 

-0  1004 

-00784  -00634 

-00516 

-00321 

-00155 

00000 

00156 

00323 

00518 

00639 

00790 

01016  01270 

01**0 

01596 

01786 

01919 

020*5 

02202 

02314 

02421 

0255  7 

02656-25000C 

-13620 

-13143 

-12*8* 

-11966 

-11*27 

-10669 

-10055 

-09401 

-00460 

-07676  -06811 

-05*96 

-04312 

-03*87 

-02855 

-0176* 

-00852 

QQOOO 

00897 

01857 

02953  03670 

0*538 

05868 

07391 

08421 

0937* 

10544 

11374 

12165 

13161 

13882  14561 

15*27 

16053- 

■200000 

-22901 

-22126 

-21055 

-20214 

-19343 

-18111 

-17110  -16037 

-1**86 

-1318* 

-11738 

-09524 

-07508 

-06072 

-05003 

-03076 

-01484 

00000  01624 

03363 

05309 

066*6 

08218 

10696 

13572 

15544 

17389 

19678 

21320  22900 

2*911 

26380 

27751 

29497 

30760 

-180000 

-  28028- 

2/074-  2576. 

■  2*720- 

■  23678- 

■  22205- 

•  21003- 

19713- 

17840- 

16264 

-  14508-  11846- 

9332-  7609- 

•  62*0- 

■  3888- 

■  18780000000 

2023 

4188 

6722 

8373 

10453 

13660  17416 

2001* 

22*61 

25520 

27732 

29875 

32621 

34644 

36434 

38716 

40366-160000- 

■  33970- 

328*2- 

■  31271- 

30038- 

28808- 

27061- 

25634 

-  24096- 

-  21856- 

19963-  178*7- 

•  1*573- 

•  11550- 

-  9**1- 

7760- 

*835- 

23350000000 

2564 

5308 

8519  10647 

13326 

17506 

22*63 

25931 

29231 

33402 

36452 

39433 

43340 

46182  48661 

51818 

5*103- 

■1*0000- 

40877- 

39537- 

37685- 

36232 

-  34794- 

-  32747- 

31069-  29256- 

■  26605- 

•  2*355- 

■  21829- 

17896- 

1*2*7- 

11664- 

9613 

-  5989-  28930000000  3251 

6730 

10802 

13558 

17028 

22526 

291  56 

33872 

38422 

44271 

48619  52933 

58622 

6289* 

66**6 

70972 

7*2*5- 

120000- 

48738 

-  47177-  45020- 

43326—  *1666- 

■  39290- 

373*9- 

■  35237- 

32136- 

29*91- 

26507- 

21831 

-  17455- 

-  14329- 

11846-  7381- 

•  35650000000000*12300085350013698 

17289 

21808 

29119 

38143 

44715  51188 

59723 

66239 

72862 

81865 

88923 

94335 

101228 

106214- 

-100000- 

57509-  55715-  33235- 

■  51283-  *9399- 

4669*- 

***62- 

42034- 

38453 

-  35384-  31902- 

26400-  21218-  17471- 

1**95-  9032- 

*3630000000 

5221 

10809 

17348 

22053 

27975  37820 

50372 

59833 

69*52 

82658 

93196 

10*384 

120469 

131278 

140025 

151165  159224- 

■  80000- 

67058-  65025- 

62214- 

60007- 

57888- 

54844 

-  52322-  49571- 

45493-  41980-  37975- 

31602-  25528- 

21091- 

17566- 

10945- 

5287 

ooooooo 

6587 

13638  21887 

23535 

35861 

*9287 

67171 

81*18 

96386 

118333 

136864 

157730 

188754  214724 

2310*3 

251829 

266866- 

60000- 

02248- 

78505- 

73331 

-  69269- 

66923- 

63546-  60739- 

57667- 

53093- 

49132- 

**591- 

37313- 

30307- 

25127 

-  21011-  13092- 

6  3  2  40000000 

0239 

17057 

27374 

35*9* 

45714 

6*059 

89732 

1 10’ 72 

134194 

163515  195474 

22*091 

262921 

292688 

31*933 

343267 

363765- 

40000 

-  07379- 

■  94880- 

81426-  78714- 

76158- 

72*66- 

69388- 

66008- 

60955- 

56559- 

51494 

-  43315- 

35366- 

29421-  2*699- 

15390- 

7*  3*OUOUOOO 

10115 

20942 

33610 

44009 

5/101 

81216 

113185  1*25*6 

171017 

209  722 

2*0284 

2  6  H  9  6  1 

303797 

339080 

363139 

393784 

415953- 

20000-  97222- 

94513- 

90768- 

8  7828- 

85080- 

81 100- 

77773- 

74109 

-  68613- 

6381  1- 

58252-  *9219- 

39366- 

3323*- 

28363- 

15390- 

74340000000 

1 1969 

20942 

39  7  70 

*6052  678  /A 

96278 

1 3*690 

164258 

19*073 

233679 

263778 

293751 

333813 

363666 

388076  *19169 

*41663 

0000- 

105951- 

103056- 

99054- 

95912- 

92995 

-  88/64-  85215-  81301-  76*11-  702*6-  6*2< .0-  6***9-  44782-  3  7425-  31580-  19678 

-  95050000000  13384  27709  44471  58105  75267  105553  145401  175512  205618 

266611  275515  305618  345412  3/4516  399995  431180  453741  20000- 1 2 2990- l 1 9 1 1 7 

-113/64-104561-  99223-  94777-  91044-  86919-  80697-  74228-  68861-  58423-  48088 

-  40196-  J3926-  21139-  10211000000U  14189  293 76  47145  61724  80074  110005 

150271  180527  210706  250544  280664  310774  350594  380697  405201  436413  458992 

40000-117687-114512-110122-1U66 7 6-103504-  98887-  9500,-  9"714-  84231-  78525 

-  71873-  60956-  50137-  41879-  35318-  22007-  1O63OOOUUOU0  14563  30149  48385 

62306  80732  111876  152273  182573  212774  252627  302749  312868  352664  382767 

407273  438489  461071  60000- 1 2032 3- 1  1  7 1 70- 1  1 28 1  1 -  1 09389- 1 06 1 30- 10 1 386-  97395 

-  92980-  86309-  81435-  73588-  62354-  51233-  42762-  36032-  22451-  108450000000 

18080  37430  60071  69508  81386  112606  153046  183361  213565  253426  263549 

313664  353464  383567  408076  439293  461877  200000- 1 24109- 1 207 1 3- 1 1 6020-1 1 2336 

-108939-103997-  99845-  95253-  88326-  82230-  75154-  63565-  52137-  *3470-  3658* 

-  22795-  1 101 10000000  14815  30672  49224  63652  81014  113076  1535*1  18366* 

21*076  253935  28*060  31417*  353974  384077  406586  *39805  462389 
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APPENDIX  C. 


LIST  OF  SYMBOLS 


This  list  includes  most  of  tho  abbreviations,  acronyms,  and  symbols 
used  in  this  report  except  for  those  used  in  the  computer  listings  of 
sin  t ion  B.  rORTRAN  variables  used  in  providing  input  for  the  programs 
are  described  in  table  7,  and  subprograms  and  input  data  tables  are 
cataloged  in  section  13.4.  Many  jce  e  ilar  to  those  used  in  [17,  18, 
i’ll,  .V ,  40,  42  J.  The  units  given  for  symbols  in  this  list  are  those  re¬ 
quired  by  or  resulting  from  equations  as  given  in  this  report  and  are 
applicable  except  when  other  units  are  specified.  The  following  rela¬ 
tionships  are  provided  as  a  convenience  to  the  reader. 


1  foot  =  3.048  x  IQ'1*  kilometer 

1  statute  mile  =  5280  feet 

1  statute  mile  =  1.609344  kilometers 

1  nautical  mile  =  1.852  kilometers 

1  radian  -  57.29577951  degrees 

In  the  following  list,  the  English  alphabet  precedes  the  Greek  alpha¬ 
bet,  letters  precede  numbers,  and  lower-case  letters  precede  upper-case 
letters.  Miscellaneous  symbols  and  notations  are  given  after  the  alpha¬ 
betical  items. 


a  Effective  earth  radius  (km)  calculated  from  (20). 

a  An  adjusted  effective  earth  radius  (km)  calculated 

using  (44)  and  shown  in  figure  16. 

a  Actual  earth  radius,  6370  km  to  about  three 

0  significant  figures. 

a_  An  effective  earth  radius  (km)  used  in  figure  21 

"  and  defined  for  different  path  types  in  section  A. 4. 5. 

2  Effective  earth  radii  from  (88). 

a3  ^  Effective  earth  radii  from  (91). 

ANT.  Antenna  (fig.  6). 
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A  Atmospheric  absorption  (dB)  from  (172). 

a 

A.  Attenuation  (dB)  associated  with  diffraction 

a  over  terrain,  from  (144). 

A.  Intercept  (dB)  for  the  beyond-the-horizon 

'°  combined  diffraction  attenuation  line,  from  (143). 

Adx  ^d  dB  dx’  ^rom 

A  Effective  area  (dB  -  sq.  m)  of  an  isotropic 

e  antenna  (sec.  3.2.1  footnote)  from  (9). 

A  .  Angles  (rad)  defined  and  used  in  figure  21  only. 

c  ,  l 

A  .  Knife-edge  diffraction  attenuation  (dB)  for 
path  p  =  e  (122). 

A^  Attenuation  (dB)  used  in  (122), 

Ak  Attenuation  (dB)  associated  with  beyond-the-horizon 

knife-edge  diffraction,  from  (125). 

A,.,.  Knife-edge  diffraction  for  path  p=K  (fig.  20), 
from  (119). 

Aw  Intercept  (dB)  for  the  beyond-the-horizon 

K  knife-edge  diffraction  attenuation  line, 

from  (124). 

Awr  Knife-edge  diffraction  loss  f-  expressed  in 
decibels  from  (134).  5 

Ami  Combined  diffraction  attenuation  (dB)  at  dMI  , 

ML  from  (136).  ML 

A  Intercept  (dB)  for  the  within-the-horizon 

u  combined  diffraction  attenuation  line,  from  (139). 

A  Attenuation  (dB)  of  rounded  earth  diffraction 

p  for  path  p,  from  (105). 

A  Intercept  (dB)  of  rounded  earth  diffraction 

pr  line  for  path  p,  from  (104). 

Arcsin  Inverse  sine  (rad),  principal  value. 

A  K  Rounded  earth  diffraction  attenuation  (dB) 

rN  obtained  from  (105)  with  parameters  for  path 

p=K  (fig.  20)  and  dp=d^j  +  deLs«  used  In  (141). 

A  ML  Rounded  earth  diffraction  attenuation  (dB) 
rML  obtained  from  (105)  with  parameters  for  path 
p=K  (fig.  20)  and  dp  a  dML. 

A  5  Rounded  earth  diffraction  attenuation  (dB) 
r'J  obtained  from  (105)  with  parameters  for  path 
p=K  (fig.  20)  and  d  =dg. 
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*1  ,2,3,4 


CDC  3800 


'1,2,3 


dB/km 

(DB/KM) 

dB-sq  m 
(DB-Sq  M) 


Terrain  attenuation  (dB)  associated  with  forward 
scatter  (169). 

A$  dB  at  ,  from  (169) . 

Attenuation  (dB)  associated  with  terrain, 
from  (84)  or  (146). 

A  conditional  adjustment  factor  used  to  prevent 
available  signal  powers  from  exceeding  levels 
expected  for  free-space  propagation  by  unreal¬ 
istic  amounts,  from  (16). 

Attenuation'  (dB)  from  (102). 

Combined  diffraction  attenuation  (dB)  at 
d5,  from  (136). 

Combined  diffraction  attenuation  (dB)  at 
d-d|_  i  +  deLa,  from  (141 ) . 

Parameters  calculated  from  (107). 

Parameters  calculated  from  (95). 

Cosine. 

Inverse  cosine  (rad),  principal  value. 

Control  Data  Corporation  3800,  the  computer 
type  used  by  ITS  for  batch  processing. 

Parameter  used  in  defining  exponential 
atmospheres,  from  (29). 

Parameters  defined  following  (178). 

Great  Circle  distance  (km)  between  facility 
and  aircraft.  For  1 ine-of-sight  paths 
(fig.  16)  it  is  calculated  from  (60). 

Degree. 

Decibel,  10  log  (dimensionless  ratio  of  powers). 
Attenuation  (dB)  per  unit  length  (km) 

Units  for  effective  area  in  terms  of  decibels 
greater  than  an  effective  area  of  1  m2  (sq  m), 

10  log  (area  in  square  meters). 


dB-W/sq  m 
(DB-W/SQ  M) 


dBW 

(DBW) 


Units  for  power  density  in  terms  of  decibels 
greater  than  1  W/sq  m,  10  log  (power  density 
expressed  in  watts  per  square  meter). 

Power  (dB)  greater  than  unit  power  (W), 

10  log  (power  expressed  in  watts). 

Counterpoise  diameter  (km). 


dds  Distance  (km)  beyond  the  radio  horizon  at  which 

diffraction  and  scatter  attenuation  are  approxi¬ 
mately  equal  for  a  smooth  earth,  from  (175). 

dg  Effective  distance  (km)  from  (177). 

deLs  dPLs  km  for  P  =  e  (fig.  20) ,  from  (117). 

deLl  ,2  dpLl  ,2  km  for  Path  P  =  e  20),  from  (116). 

do  The_ largest  distance  (km)  in  the  1 ine-of-siqht 

region  at  which  diffraction  effects  associated 
with  terrain  are  considered  negligible,  from  (140). 

dp  Great  Circle  distance  (km)  for  path  p  (fig.  20). 

dpL  Total  horizon  distance  (km)  for  path  p  from  (85). 

dpLs  Total  smooth  earth  horizon  distance  (km) 
for  path  p  (sec.  A. 4. 3) 

dpLl ,2  Radio  horizon  distances  (km)  for  path  p 
(sec.  A. 4. 3). 


drt  Distance  (km)  from  the  horizon  to  the  aircraft 
as  shown  in  figure  13  and  used  in  (40). 

dsL  Smooth  earth  horizon  distance  (km)  for  facility 
horizon  shown  in  figure  15  and  calculated 
from  (37). 

dsl  ,2  Distances  (km)  calculated  from  (153). 

dx  A  distance  (km)  just  beyond  the  radio  horizon 
where  A  >  20  dB  and  M  -  M.. 
s  -  s  d 

dD,U  Great  Circle  distance  (n  mi)  from  aircraft  to  desired 

and  undesired  facility,  respectively  (fig.  4). 

dKLs  dPLs  km  for  Path  P  =  K  (fig-  20)  as  per  (112). 

w  Mfi9- 20)  as  per 
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d^  Distance  (km)  discussed  prior  to  (173). 

^Lol  ,2  Smooth  earth  horizon  distances  (km)  calculated 
from  (173)  or  (174). 

d,  ,  Facility  smooth  earth  horizon  distance  (km) 

from  (24). 

d.  ?  Aircraft  smooth  earth  horizon  distance  (km), 

from  (33). 

d.  ,  Fac1- 1  ity-to-horizon  distance  (km)  shown  in  figure  13; 

’  determined  from  figure  14  and  from  (23)  or  (26). 

d.  9  Aircraft- to~hovi zcn  distance  (km)  shown  in 

figure  15  and  determined  from  (38). 

A  distance  (km)  from  (128). 

d^  A  distance  (km)  from  (176). 

dM|  Maximum  1 ine-of-sight  distance  (km  shown  in 

fig.  13)  from  (40). 

d^  A  distance  (km)  from  (86). 

d.  Distance  (km)  used  in  rounded  earth  diffraction 

H  calculation  (87). 

d5  A  distance  (km)  from  (129). 

DME  Distance  Measuring  Equipment  (fig.  2),  an  air 

navigation  aid  used  to  provide  aircraft  with 
distance  information. 

D/U  Desired-to-Undesired  signal  ratio  (dB) 

available  at  the  terminals  of  an  ideal  (lossless) 
isotropic  receiving  antenna  (sec.  3.1.2). 

D/U(q)  D/U  values  (dB)  exceeded  for  a  fraction  q  of  the 
time.  These  values  may  represent  instantaneous 
levels  or  hourly  median  levels  depending  upon 
the  time  availability  option  selected  (sec.  3.1.2), 
and  are  calculated  via  (11). 

D/U (0.5)  D/U(q)  dB  at  median  (q=0.5)  level,  from  (12). 

D  Distance  (km)  between  radio  horizons,  calculated 

s  via  (159). 

D,  ,  Distances  (km)  shown  in  figure  16  and  calculated 
via  (51). 

exp(  )  Exponential;  e.g.,  exp(2)  =  ez . 

» 
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1 


E  East  longitude  (fig.  3  only). 

EIRP  Equivalent  isotropically  Radiated  Power  (dBW) 

calculated  using  (1 ) . 

ERP  Effective  Radiated  Power  (sec.  3.1.1),  2.15  dB 

less  than  EIRP. 

f  Frequency  (MHz). 

ft  feet 

(FT) 

ft-MSL  Elevation  (ft)  above  MSL. 

ft-ss  Elevation  (ft)  above  facility  site  surface. 

f  Knife-edge  diffraction  loss  factors  determined 

with  subroutine  FRENEL  from  v  ,  used  in  (78) 
and  (79).  9,C 

f.  Knife-edge  diffraction  loss  factor  obtained  for 

v.  via  subroutine  FRENEL  (sec.  13.4.1),  used 

if)  (122). 

f  0  Parameters  defined  following  (178). 

1X1,2,°°  3 

f(Jh  Elevation  angle  correction  factor,  from  (179). 

f5  Knife-edge  diffraction  loss  factor  obtained 

for  v5  from  subroutine  FRENEL  (sec.  B.4.1), 

used  in  (134). 

F  Fade  margin  (dB)  from  (197). 

FAA  Federal  Aviation  Administration. 

FORTRAN  FORmula  TRANslating  "language"  or  coding  used  with 
electronics  computers  in  lieu  of  "machine  language". 
Many  such  languages  are  used  and  FORTRAN  itself 
has  several  variations. 

F„v  Reflection  reduction  factor  associated  with 

MY  Ay,  from  (191). 

F.fl  Attenuation  function  (dB)  obtained  from 

uU  subroutine  FDTETA  (sec.  B.4.1),  used  in  (169). 


F.  .  Reflection  reduction  factor  associated  with 
acm  diffuse  reflection,  from  (194). 

FQ  Correction  term  (dB)  in  scatter  attenuation  which 

allows  for  the  reduction  of  scattering  efficiency 
at  greater  heights  in  the  atmosphere  (164). 
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% 


Geh1,2 


^1,2 


GKhl,2 

Gphl,2 


G 


M 


G 


N 


G1 ,2,3,4 
h 


Parameters  (dB)  from  (101). 

Specular  reflection  reduction  factor  associated 
with  surface  roughness,  from  (66). 

Reflection  reduction  factor  associated  with 
Ar,  from  (192). 

Normalized  voltage  antenna  gain  for  the  facility 
antenna  at  the  elevation  angle  associated  with  the 
direct  ray  (figs.  13  and  16).  Calculated  using  the 
formulation  given  for  g  in  (67)  but  with  9  set  to 
6.  from  (57)  for  line-of-sight  paths  or  e J?'  from 
n  figure  14  for  beyond-the-horizon  paths: 

Normalized  voltage  gain  for  facility  antenna 

from  (67)  with  6  =0.  from  (58). 

er  n 

Gigahertz  (109  Hz). 

Gain  (dB  greater  than  isotropic)  of  aircraft  antenna 
used  in  and  discussed  after  (4);  current  model  assumes 
G^  =  0  (isotropic)  for  D/U  calculations. 

Gph!  2  ^  for  P  =  e  (^9*  used  in  (122). 

Gain  (dB  greater  than  isotropic)  of  facility  antenna 
used  in  and  discussed  after  (4). 

Values  (dB)  for  the  residual  height  gain  function 
(sec.  A. 4. 3)  from  subroutine  GHBAR  (sec.  B.4.1), 
used  in  (119). 

Values  (dB)  of  the  residual  height  gain  function 
for  path  K  from  subroutine  GHBAR,  used  in  (122). 

Values  (dB)  for  the  residual  height  gain  function 
(sec.  A. 4. 3)  for  path  p,  from  subroutine  GHBAR 
(sec.  B.4.1);  described  following  (107). 

Gain  (dB  greater  than  isotropic)  for  main  beam 
(maximum)  of  facility  antenna,  used  in  (1). 

Normalized  gain  (dB  relative  to  the  maximum  gain, 

Gm)  of  the  facility  antenna  in  the  direction 
n  of  Interest  (fig.  2),  used  in  (7). 

Parameters  (dB)  from  (100). 

Height  (km)  above  msl  used  in  (23). 


hfl2  Actual  aircraft  altitude  (km)  above  the  effective 

J  reflection  surface  from  (31). 
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h  Height  (km)  of  the  counterpoise  above  facility 

site  surface  and  used  in  (47). 

h  .  Effective  height  (km)  calculated  from  (25)  and 

e  used  in  (26). 

h  ,  0  h  ,  0  km  for  path  p  =  e  (fig.  20)  from  (114) 

eel’2  pe  ,2and  (115). 

h  9  Effective  aircraft  altitude  (km)  above  msl , 

es^  above  (146). 

h  .  Elevation  (km)  of  facility  horizon  above 

the  effective  reflection  surface,  from  (36). 


h  ,  Effective  height  (km)  of  facility  antenna 

e'  above  the  effective  reflection  surface, 

from  (111). 

h  2  Effective  altitude  (km)  of  aircraft  above  the 

r::<  effective  reflection  surface,  from  (32)  or  (34) 

hf  Height  (km)  of  facility  antenna  above  its 

Tc  counterpoise,  used  in  (48). 

hmi  2  hpel  2  expressed  in  meters  from  (106). 

h  Height  (km)  of  the  intersection  of  horizon  rays 

0  above  a  straight  line  between  tne  antennas  in 

forward  scatter  (161). 

h  ,  0  Effective  antenna  heights  (km)  for  path  p 
pel’Z  (sec.  A. 4. 3). 

h  Elevation  (km)  of  effective  reflecting  surface 

rs  above  msl  (fig.  13) . 

h$2  A  height  (km)  from  (130). 

hy  A  height  (km)  from  (160). 

hKel  2  hpel  2  km  for  path  P  =  K  20 )»  froni  010)- 

h, ,  Elevation  (km)  of  facility  horizon  above  msl 
L  (fig.  13),  from  figure  14  and  (221. 

h,  9  Elevation  (km)  of  aircraft  horizon  above  msl 
(fig.  15)  and  used  in  (164). 
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h,  ?  Facility  antenna  height  h, ,  or  aircraft  altitude 
' ,<L  in  kilometers  above  msl  (fig-  13). 

H  .  Heights  (km)  defined  and  illustrated  in  figure  21. 

c,q,t,z 

H  Frequency  gain  function  (dB)  obtained  from 

0  subroutine  HCHOT  (sec.  B.4.1),  used  in  (169). 

H  Height  (km)  of  scattering  volume  above  effective 

v  reflection  surface,  from  (171). 

H-,  An  antenna  height  (km)  shown  in  figure  16, 

from  (48). 

An  antenna  height  (km)  sh:wn  in  figure  16, 

c  from  (47). 

HI  9  Heights  (km)  shown  in  figure  16,  from  (52). 

H  ,  p  Heights  (km)  used  in  figure  21  and  defined  for 

^  ’  different  path  types  in  section  A. 4. 5. 

ILS  Instrument  kanciln9  System  (sec.  3.1.1),  an 

air  navigation  aid  used  in  landing. 

ITS  Jnstitute  for  Telecommunication  Sciences. 

j  /r. 


JTAC  Joint  Technical  Advisory  Committee. 


km  Kilometer  (103  m). 

(KM) 

k,  An  adjusted  earth  radius  factor,  from  (43). 

a 

A  parameter  calculated  from  (93). 

K.  K  value  associated  with  tropospheric  multipath, 

1  from  (198)  or  (201). 


K 


K1 ,2,3,4 


The  ratio  (dB)  between  the  steady  component  of 
received  power  and  the  Rayleigh  fading  component 
that  is  used  to  determine  the  appropriate 
Nakagami-Rice  distribution  [40,  sec.  V. 2]  for 
V7r(q),  from  (6). 

K  value  at  the  radio  horizon.  Used  in  (201). 
Parameters  .calculated  from  (94). 
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log  Common  (base  10)  logarithm. 

L,  f  Basic  transmission  loss  (dB)  for  free  space, 

DT  .from  (15). 

L,  A  reference  level  of  basic  transmission  loss 

Dr  (dB),  from  (17). 

L,/  ,  Basic  transmission  loss  (dB)  values  not  exceeded 
during  a  fraction  q  of  the  time.  These  values 
may  represent  instantaneous  levels  or  hourly 
median  levels  depending  upon  the  time  availability 
option  selected  (sec.  3.1.2),  and  are  calculated 
using  (8). 

Lb(0.5)  Lb(q)  dB  for  q  =  °-5’  from 

L  Loss  (dB)  in  path  antenna  gain  used  in  and 

qp  discussed  after  (4);  current  model  assumes 


L(q)  Transmission  loss  (dB)  values  not  exceeded  during  a 

fraction  q  of  the  time.  These  values  may  repre¬ 
sent  instantaneous  levels  or  hourly  median  levels 
depending  upon  the  time  availability  option  selected 
(sec.  3.1.2),  and  are  calculated  using  (4). 

m  Meters. 


min  Minute  (deg/60). 

(MIN) 

mhos/ni  Conductivity  (mho)  per  unit  length  (m). 

msl  Mean  sea  level . 

(MSL) 

M,  Slope  (dB/km)  of  combined  diffraction  line  for 
beyond-the-horizon,  from  (142). 

MHz  Megahertz  (10s  Hz). 

(MHZ) 

M  Slope  (dB/km)  of  the  wi thin-the-horizon  combined 

diffraction  attenuation  line,  from  (137). 

M  Slope  (dB/km)  of  rounded  earth  diffraction  line 

p  for  path  p,  from  (103). 
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M  Slope  (dB/km)  of  A  versus  d  curve,  determined 

11  using  successive  calculations  for  distances 

greater  than  d^.  Discussed  following  (144). 

Mj,  Slope  (dB/km)  for  the  beyond-the-hori2on  knife- 

K  edge  diffraction  line,  from  (123). 

M..  Slope  (dB/km)  of  the  K  value  line  used  just  beyond 

K  the  radio  horizon  (200). 

M^  Slope  (dB/km)  of  the  diffraction  attenuation  line 

used  just  inside  the  radio  horizon,  from  (83). 

n  mi  Nautical  mile. 

(N  MI) 

n,  ^  3  Parameters  defined  following  (178). 

N  North  latitude  (fig.  3  only). 

N  Refractivity  (N-units)  for  a  height  h  in  an 

exponential  atmosphere;  calculated  via  (28). 

N  Minimum  monthly  mean  surface  refractivity 

(  (N-units)  referred  to  msl  (fig.  3). 

N  Minimum  monthly  mean  surface  refractivity 

■'  (N-units)  at  effective  reflection  surface, 

calculated  from  NQ  via  (18). 

N-units  Units  of  refractivity  [3,  sec.  1.3]  corres¬ 
ponding  to  106  (refractive  index  -1). 

Pj  Power  (dBW)  .available  at  the  terminals  of  an 

1  ideal  (lossless)  isotropic  receiving  antenna, 

from  (3). 

PRQ  A  relative  power  level  (dB)  associated  with 

the  ray  optics  formulation  used  in  the  line- 
of-sight  region,  from  (82). 

P,R  Total  power  (dBW)  radiated  from  the  facility 

antenna,  used  in  (1 ). 

q  Dimensionless  fraction  of  time  used  in  time 

availability  specifications,  e.g.,  D/U(q), 

Lb(q)»  Sa(q),  etc. 

rad  Radians 
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r  Shortest  facility  to  aircraft  ray  length  (km); 

calculated  as  r  from  (54)  for  1 ine-of-sight 
paths,  and  taken  as  d  otherwise. 

rc  A  distance  (km)  from  (71). 

r  Effective  ray  length  (km)  for  oxygen  or  water 

eo,w  vapor  absorption  calculations,  from  (170). 

r  The  direct  ray  length  (km)  shown  in  figure  16 

0  and  calculated  from  (54). 

rleo,w  Partial  effective  ray  lengths  (km)  for  oxygen 
or  water  vapor  ab-.-.'.jrpt  i^n  calculations;  cal- 
and  culated  using  the  relai  ionships  given  in 
r2eo,w  figure  21 . 

r,  2  Segments  of  reflected  ray  path  shewn  in  figure  16, 
’  and  components  of  r^- 

r1?  Total  length  (km)  of  reflected  ray  of  figure  16, 
from  (55). 

R  Magnitude  of  complex  plane  earth  reflection 

coefficient  from  (63). 

R  Magnitude  of  effective  reflection  coefficient 

associated  with  counterpoise  reflection,  from 
(69). 

R.  Diffuse  component  of  surface  reflection  multi- 
path,  from  (195). 

R  Magnitude  of  effective  reflection  coefficient 

9  for  earth  reflection,  from  (68). 

R  Specular  component  of  surface  reflection  multi- 

s  path,  from  (193). 

R-j.  Magnitude  of  adjusted  (for  counterpoise  edge 
9,c  effects)  effective  reflection  coefficient  for 
earth  from  (78)  or  counterpoise  from  (79) 
reflection. 

RTA-2  A  TACAN  antenna  type, 

s  Path  asymmetry  factor  in  forward  scatter  (158). 

sec  Secant  (1/cos). 
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sec  Second  (nrin/60). 

(SEC) 

sin  Sine. 

ss  Facility  site  surface. 

(SS) 

S  Great  Circle  separation  (n  mi)  between  desired 

and  undesired  facilities,  calculated  from  (2). 

S  South  latitude  (fig.  3  only). 

S  Power  density  (dB-W/sq  m),  an  output  of  the 

power  density  program  (3.2.1). 

Sa(q)  Sfl  values  (dB-W/sq  m)  exceeded  for  a  fraction  of 
°  the  time.  These  values  may  represent  instan¬ 
taneous  levels  depending  upon  the  time  availability 
option  selected  (sec.  3.1.2),  and  are  calculated 
from  ( 7 ) . 

SHF  ^uper-High  Frequency  (3  to  30  GHz). 

Sj  A  parameter  calculated  from  (157). 
tan  Tangent. 

Tan-1  Inverse  tangent  (rad)  with  principal  value. 

TACAN  TACtical  Air  Navigation  (fig.  2),  an  air  navi¬ 
gation  aid  used  to  provide  aircraft  with  distance 
and  bearing  information. 

T  w  Height  (km)  associated  with  atmospheric  absorption 
’  (caption,  fig.  21). 

UHF  Ultra-High  Frequency  (300  to  3000  MHz). 

v  Knife-edge  diffraction  parameter  used  to  deter- 

1  mine  fc,  from  (77). 

v  Knife-edge  diffraction  parameter  used  to  deter- 

9  mine  fg,  from  (75). 

v.  Knife-edge  diffraction  parameter  for  the  h  ,  to 
s!  hg22  path  shown  in  figure  20,  from  (121). 

va  g  Parameters  calculated  from  (165)  and  (166). 

v^  2  Parameters  calculated  from  (167)  and  (168). 
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Ve(0.5,de) 

VOR 


VHP 

V(0. 5 ) 
W 
w 


RO 


w 


1 


,2 


x 


X1 ,2 
X3 ,4 
yl,2 


Ye(q) 


A  knife-edge  diffraction  parameter,  from  (133). 

Variability  adjustment  term  (dB),  from  (190). 

VHF  Omni  Range  (sec.  3.1.1),  an  air  navigation 
aid  used  to  provide  aircraft  with  bearing 
information. 

Very  High  Frequency  (30  to  300  MHz). 

A  parameter  (dB )  from  (178). 

West  longitude  (fig.  3  only). 

A  weighting  factor  used  in  combining  knife- 
edge  and  rounded  earth  diffraction  attenuations, 
from  (135). 

A  relative  power  level  for  the  Rayleigh  fading 
component  associated  with  tropospheric  multi- 
path  (sec.  A. 7),  from  (199). 

A  relative  power  level  for  the  Rayleigh  fading 
component  associated  with  surface  reflection 
multipath  (sec.  A. 6),  from  (196). 

A  relative  power  level  associated  with  the 
ray  optics  formulation  used  in  the  line-of- 
sight  region,  from  (81 ) . 

Parameters  calculated  from  (97). 

A  parameter  calculated  from  (92). 

Parameters  (km)  calculated  from  (96). 

Parameters  (km),  from  (99). 

Parameters  (dB),  from  (98). 

A  parameter  (dB)  from  (186). 

A  parameter  from  (62). 

Variability  (dB  greater  than  median)  of 
hourly  median  received  power  about  its  median, 

Y  (0.5)  a  0,  where  q  is  the  fraction  of  hours 
during  which  a  particular  level  is  exceeded. 
Section  A. 5  describes  methods  used  to  calculate 

Ye(q). 
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v(o.i) 

Y(0.9) 


Y  (q) 


Yj;(q) 


z 


z 


1 


,2 


u 


u 


0 


a 


00 

3 


Total  variability  (d3  greater  than  median)  of 
D/U  about.  Its  median,  YDU(Q.5)=0,  where  q  is 
the  fraction  of  time  foruwhich  a  particular 
value  is  exceeded.  These  values  may  represent 
instantaneous  levels  or  hourly  median  levels 
depending  upon  the  time  availability  option 
selected  (sec.  3.1.2).  Calculated  from 
(13). 


Parameters  from  (151)  or  (152). 


A  parameter  (dB)  from  (182). 

A  parameter  calculated  from  (74). 

A  parameter  (dB)  from  (178). 

A  parameter  (dB)  from  (178). 

Variability  (dB  greater  than  median)  of  received 
power  used  to  describe  short-term  (within-the- 
hour)  fading  associated  with  multipath  where  q 
is  the  fraction  of  time  during  which  a  particu¬ 
lar  level  is  exceeded.  It  is  used  in  and  is 
discussed  after  (5). 


Total  variability  (dB  greater  than  median)  of 
received  power  about  its  median,  YT(0.5)=0, 
where  q  is  the  fraction  of  time  for  which  a 
particular  value  is  exceeded.  These  values  may 
represent  instantaneous  levels  or  hourly  median 
levels  depending  upon  the  time  availability 
option  selected  (sec.  3.1.2).  Calculated 
via  (5). 

A  parameter  from  (42). 

Parameters  (km)  from  (49). 


An  angle  (rad)  shown  in  figure  16  and  calculated 
from  (53). 

An  angle  (rad)  from  (154). 

An  angle  (rad)  from  (147). 


An  angle  (rad)  used  in  figure  21  and  defined 
for  different  path  types  in  section  A. 4. 5. 
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00 


'oo,W 


Aa0 


Ah 


Ah 


ft 

Ah 


m 


AN 


Ar 


An  angle  (rad)  from  (155). 

An  angle  (rad)  from  (148). 

Surface  absorption  rates  (dB/km)  for  oxygen  or 
water  vapor;  if  values  are  not  provided  as  input 
(sec.  3.1.1),  they  are  estimated  via  subroutine 
ASORP  (sec.  B.4.1). 

An  angle  (rad)  obtained  via  subroutine  DELTA 
(sec.  B.4.1 ) ,  used  in  (154) . 

An  angle  (rad)  obtained  via  subroutine  DELTA 
(sec.  B.4.1 )  used  in  (155). 

Terrain  parameter  (km)  estimated  using  table  3, 
which  is  used  [32,  sec.  2.2]  to  characterize 
terrain.  It  is  an  asymptotic  value  of  Ahj. 

An  adjusted  effective  altitude  correction  factor 
from  (46). 

Effective  altitude  correction  factor  (km)  which 
is  specified  as  input  (sec.  3.1.1)  or  calculated 
from  (45). 

Interdecile  range  of  terrain  heights  (m)  above 
and  below  a  straight  line  fitted  to  elevations 
above  nisi ;  estimated  from  (64)  which  is  based 
on  previous  work  [32,  eq.  3]. 

Ah  expressed  in  feet  (table  3). 

Ah  expres  id  in  meters  (table  3). 

Refractivity  gradient  (N-units/km)  used  in 
defining  exponential  atmospheres,  from  (30). 

Path  length  difference  (km)  for  rays  shown  in 
figure  16  (r-^-r  )  that  is  calculated  from  (56). 

Ar  km  from  (56)  for  earth  or  counterpoise 
reflection. 


e  Dielectric  constant  from  table  2. 

ec  Complex  dielectric  constant  from  (61). 

n  A  parameter  from  (162). 
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ns  A  parameter  from  (163). 

0  Angular  distance  (rad)  from  (156). 

0  An  angle  (rad)  from  (70)  and  shown  in 

ce  figure  17. 

©eei  2  0pel  2  rad  ^or  path  P  =  e  (fig-  20)  as  per  (118). 

0  Elevation  angle  of  reflecting  point  at  facility 

antenna,  from  (58). 

0el  Elevation  angle  (rad)  of  horizon  at  facility  (fig. 

13);  determined  using  figure  14,  from  (21)  or  (27). 

9  Horizon  elevation  angle  (rad)  at  aircraft, 

ez  from  (39). 

q  An  angle  (rad)  from  (131). 

e5 

0,  Elevation  angle  (rad)  of  aircraft  at  facility 

(fig.  16),  from  (57)  arid  (126). 

6,  An  angle  (rad)  calculated  via  (76)  and  shown 

c  in  figure  18. 

0^  An  angle  (rad)  from  (72)  and  shown  in  figure  17. 

0Kel  2  °pel,2rad  for  path  P  =  K  (fi9-  20)  as  per 

0.  Elevation  angle  (rad)  of  aircraft  at  facility 

horizon  (fig.  10),  from  (41). 

0pe  An  angle  (rad)  from  (89). 

0  1  p  Horizon  elevation  anqles  (rad)  for  path  p, 

p  ’  described  following  (88)  (sec.  A. 4. 3). 

0$2  An  angle  (rad)  shown  in  figure  15,  from  (35). 

0  Diffraction  angle  (rad)  for  the  h  ,  to  h  ? 

path  shown  in  figure  20,  from  (120). 

0Q  An  angle  (rad)  from  (59). 

0po  An  angle  (rad)  from  (149). 

0oi  2  Angles  (rad-)  from  (150). 
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Angles  (rad)  shown  in  figure  16  and  calculated 
from  (50). 

Angles  (rad)  from  (90). 

First  approximation  (127)  for  angle  eg. 

An  angle  (rad)  from  (132). 

Wavelength  (km)  from  (73). 

Wavelength  (m)  from  (10). 

The  constant  3.141592654. 

Conductivity  (mho/m)  from  table  2. 


The  root-mean-square  deviation  (m)  of  terrain 
and  terrain  clutter  within  the  limits  of  the 
first  Fresnel  zone  in  the  dominant  reflecting 
plane;  estimated  from  (65)  which  is  based  on 
previous  work  [32,  eqs.  3.6a,  3.6b]. 

Phase  advance  associated  with  complex 
earth  reflection  coefficient,  from  (63). 

Phase  lead  (rad)  associated  with  counterpoise 
reflection,  from  (69). 

Phase  lead  (rad)  associated  with  earth  reflec¬ 
tion,  from  (68). 

Knife-edge  diffraction  phase  shift  determined 

with  FRENEL  from  v  . 

g>c 

Phase  lead  (rad)  of  adjusted  (for  counterpoise 
edge  effects)  effective  reflection  coefficient 
from  (80)  for  earth  or  counterpoise  reflection. 

Grazing  angle  (rad)  shown  in  figures  16  and  17. 

Grazing  angle  (rad)  for  reflection  from 
counterpoise. 

Approximately. 

Degrees,  e.g. ,  12°. 

Percent. 


216 


APPENDIX  D 


INDEX  TO  EQUATIONS 

An  index  to  equations  is  provided  in  this  appendix.  Equation  number 
(Eq.  #),  independent  variable  (I.  Var.),  and  page  are  provided  for  each 
equation. 
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